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Vorwort 


Lieber Colour-Genie Freund! 

Das Colour-Genie erfreut sich immer größerer Beliebtheit. So 
ist es auch nicht verwunderlich, daß immer wieder der Ruf nach 
einem Buch laut wurde, das speziell für das Colour-Genie ge¬ 
schrieben wurde und das auf die vielfältigen Möglichkeiten des 
Colour-Genies eingeht. 

Nun, das Warten hat ein Ende: Vor Ihnen liegt das "Colour-Genie 
Buch 1" ! 

Ein Buch, auf das wir stolz sind, denn es ist vollgepackt mit 
interessanten Programmen und Informationen und es bietet sowohl 
dem Anfänger als auch dem fortgeschrittenen Programmierer, so¬ 
wohl dem Spielefreund als auch dem "ernsthaften" Anwender Pro¬ 
grammlist ings und Erklärungen, die helfen, das Colour-Genie 
besser zu verstehen und besser zu nutzen. 

Schauen Sie ruhig einmal in das Inhaltsverzeichnis auf den 
nächsten beiden Seiten, blättern Sie einmal durch das Buch und 
Sie werden sehen, wie vielfältig der Inhalt ist. 

Wir hoffen, daß Sie Ihr Colour-Genie so vielseitig einsetzen, 
wie es seinen Möglichkeiten entspricht und daß Sie viel Freude 
mit Ihrem Computer haben werden. 

In diesem Sinne wünschen wir Ihnen nun viel Spaß beim Lesen, 
Abtippen und Ausprobieren! 

Kalle Braun Bonn, im August 1983 

□ürgen Buchmüller 
Frank Seger 
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Zur Gliederung 


Wie Sie vielleicht schon aus dem Inhaltsverzeichnis ersehen 
Konnten, haben wir versucht, die einzelnen Teile dieses Buches 
in eine sinnvolle Reihenfolge zu bringen. 

Zu Beginn finden Sie drei interessante Spiel Programme, die alle 
bereits auf dem 16K-Grundgerät laufen. 

Es folgen dann die Listings zweier Spiel Programme, die mit dem 
”Colour-Compiler” compiliert werden müssen. 

Nach den Spielen folgen mehrere Programme und Erläuterungen, 
die Ihnen ein tieferes Verständnis für Ihren Computer erleich¬ 
tern sollen, unter anderem ein£*. komplette** Maschinensprache- 
Monitor in Basic, der es Ihnen ermöglicht, über die Ebenen der 
Basicprogrammierung auf die Ebene der Maschinenprogrammierung 
vorzustoßen. 

Etliche Kapitel befassen sich mit der Programmierung eines an¬ 
geschlossenen Druckers - besondere Freude werden Besitzer des 
STAR-Printers DP 510/515 an den abgedruckten Programmen haben. 

Im Anhang finden Sie dann noch eine Liste der Basic-Tokens, 
eine Dezimal-Hexadezimal Tabelle, sowie eine Liste der verfüg¬ 
baren TCS-Colour-Genie Software. 


**** ACHTUNG **** 

In den Listings entspricht das Paragraphenzeichen C§) dem 
"Klammeraffen" Cß) ) , der rechts neben der <P>-Taste liegt, und 
das große Ä CA) dem Aufwärtspfeil C [ ), der zur Exponential- 
rechnung benötigt wird. 
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bummbumm 


"Bumm Bumm" ist ein einfaches, jedoch sehr lustiges Telespiel. 
Zwei Spieler spielen gegeneinander. Jeder Spieler hat eine 
Kanone und muß nun versuchen, seinen Gegner abzuschießen. 

Dazu braucht man ein gewisses Gefühl für Ballistik, denn 
ein Schuß wird durch die Eingabe des Abschußwinkels und der 
Abschußgeschwindigkeit gesteuert. 

Das Programm soll hier nicht komplett erklärt werden - 
einige interessante Teile seien jedoch erläutert: 


In Zeile 20 wird in das CRTC-Register für Zeichen-End-Raster 
eine 0 gePOKEfc. Dies bewirkt, daß die FGR-Darstellung nur 
in halber Höhe erfolgt. Dabei wird der FGR-Speicher zweimal 
untereinander dargestellt. Diese doppelte Darstellung ist im 
übrigen leider nicht vermeidbar. In Zeile 690 wird diese 
CRTC-Programmierung durch POKE 17158,1 wieder rückgängig 
gemacht. Siehe hierzu auch Rnhang R des Handbuchs 
"Colour Basic - leicht gelernt". 


Erwähnenswert ist auch, wie der Titel "BUMM BUMM" im FGR-Modus 
gezeichnet wird. Dabei werden nicht alle Zeichen über einzelne 
PLOTs erzeugt, sondern alle Zeichen sind in einer 5 mal 8 
Matrix codiert. Die Werte dieser Codierung stehen in den DATA- 
Zeilen 130 bis 160. 

Ausgelesen werden die Werte in den Zeilen 330 bis 430. 

Die wichtigste Zeile in dieser Routine ist Zeile 380. 

Hier wird geprüft, ob das Bit, angegeben durch Variable B, 
in dem aus der DATA-Zeile gelesenen Wert A gesetzt ist oder 
nicht. Dazu wird mit den Zweierpotenzen 1 bis 16 verglichen, 
die in AC0) bis AC4) gespeichert sind (siehe Zeilen 
60 bis 100). 

Analog sind in den DATA-Zeilen 170 bis 260 die Werte für 
die Ziffern 0 bis 9 gespeichert, die in der Winkel- u. 
Geschwindigkeitseingabe benötigt werden. 


Für Patrioten sei hier noch erklärt, wie das Deutschlandlied am 
Ende des Programms erzeugt wird. Nötig hierzu sind die DATA- 
Zeilen 110 bis 120 und der Programmteil von Zeile 2510 bis 2530 
und weiter von 2580 bis 2610. Ein Sprung auf Zeile 2510 spielt 
das Deutschlandlied ab. Zeile 2540 bis 2570 dienen nur dazu, 
den Namen des Siegers in allen Farben leuchten zu lassen, darum 
können diese Zeilen weggelassen werden. 


10 FCLS 

20 POKE17158,0 
30 FGR 

40 DEFINTA-C, E-V 
50 DIMZC 9,4) 

60 A= 128 

70 F0RL=7T00STEP-1 
80 ACL)=A 
90 R=A/2 
100 NEXTL 

110 DAT A3,1,3,1,3,1,3,2,3.3,3,3,3.2,3.2,3,4.3,4,3,3,3,3,3,2,2,7,3,1.3 

1,3,6,3,6,3.5,3,5,3,4,3,4,3,3*3,3,3,2,3,2,3,3,3,1,3,5,3,5,3,5,3,5 

120 DATA4,1,4,1.4,1.3.7,3,7.3,6.3,5,3,5,3,6,3,6,3,6,3.5,3,5,3,4,3,3,3 

3,3,2,3,2,3,3,3,4,3,5,3,6,3,4,3.2,3,1,3,1,3,3,3,2,3,1,3,1,3,1 

130 DATA30,17,17,30,17,17,30,0 

140 DATA17,17.17,17,17,17,14,0 

150 DATA 17,27,21,21,17,17,17,0 

160 DATA17,27,21.21,17,17,17,0 

170 DATA21,17,17,17,21 

180 DATA1,1,1,1,1 

190 DATA21,1,21,16,21 

200 DATA21,1,5,1,21 

210 DATA17,17,21,1,1 

220 DRTA21,16,21,1,21 

230 DATA16,16,21,17,21 

240 DATA21,1,1,1,1 

250 DATA21,17,21,17,21 

260 DATA21,17,21,1,1 

270 FCLS 

280 FGR 

290 RESTORE 

300 FORL=1T063 

310 READL1,L2 

320 NEXTL 

330 F0RC S 0T03 

340 F0RD=0T07 

350 RERDR 

360 F0RB=4T00STEP-1 

370 X=28+C*38-B*5+D 

380 IF(AANDAC B)) < >A(B)THEN430 

390 Y=D*12 

400 FC0L0UR4 

410 PLOTX,YTOX+5,YTOX+5,Y+12T0X,Y+12T0X,Y 

420 PAINTX+1,Y+l,3.4 

430 NEXTB.D.C 

440 FORL =0T09 

450 F0RM=0T04 

460 RERDZC L,M) 

470 NEXTM,L 
480 CLS 
490 C0L0UR4 
500 LGR 
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510 PRINT”Bei diesem Spiel, dass 2 Spieler gegen 
520 PRINT”einander spielen, geht es darum, die” 
530 PRINT”gegnerische Kanone abzuschiessen.” 

540 PRINT”Dazu muss jeweils der Abschusswinkel” 
550 PRINT”und die Abschussgeschwindigkeit der” 
560 PRINT”Kanonenkugel eingegeben werden,” 

570 PRINT 

580 PRINT”Gewonnen hat derjenige, der als erster 
590 PRINT”5 Treffer hat.” 

600 PRINT 

610 PRINT”Reihenfolge der Eingaben:” 

620 PRINT”Winkel: 0 bis 90 Grad” 

630 PRINT”Geschwindigkeit: 0 bis 99 Meter/sec.” 
640 PRINT 
650 PRINT 
660 PRINT 

670 PRINT”Geben Sie jetzt bitte Ihre Namen ein:” 

680 PRINT 

690 POKE17158,1 

700 C0L0UR5 

710 INPUT”NAME DES 1. KANONIERS”: CS 
720 C0L0UR2 

730 INPUT”NAME DES 2. KANONIERS”;B$ 

740 IFCS = B$THEN700 

750 WF=RNDC2D 

760 IFS1>40RS2>4THEN2290 

770 G0SUB1710 

780 P=18440 

790 Z=S1 

800 G0SUB2090 

810 P=18470 

820 Z=S2 

830 G0SUB2090 

840 IFWF=2THEN1210 

850 P=18434 

860 G0SUB2180 

870 W1=A*10 

880 P = P+1 

890 G0SUB2180 

900 W1=W1+A 

910 P=18437 

920 G0SUB2180 

930 Gl=A*10 

940 P=P+1 

950 G0SUB2180 

960 Gl=G1+A 

970 G0SUB1430 

980 XP=P1+11 

990 YP=Q1-8 

1000 G0SUB1570 



1010 IFV < 2THENWF = 0:G0SUB2350:GOTO1210 

1020 IFX0<80THEN1400 

1030 S1=S1+1 

1040 WF=1 

1050 S0UND7,247 

1080 S0UND6,31 

1070 S0UND8,18 

1080 SOUNDS,0 

1090 SOUND12,150 

1100 SOUND13,9 

1110 FORA =1T0100 

1120 FCOLOURRNDC 3) + 1 

1130 CIRCLEXO,YO,ARND7 

1140 S0UND8,RRND15 

1150 NEXTR 

1180 FC0L0UR1 

1170 F0RA=0T08 

1180 CIRCLEXO,YO,R 

1190 NEXTR 

1200 G0T0780 

1210 P=18484 

1220 G0SUB2180 

1230 W1=A*10 

1240 P=P+1 

1250 G0SUB2180 

1280 Uli = UI1+A 

1270 P=18487 

1280 G0SUB2180 

1290 Gl = A#10 

1300 P = P+1 

1310 G0SUB2180 

1320 Gl=G1+R 

1330 G0SUB1430 

1340 DX=-DX 

1350 XP=P2-1 

1380 VP=Q2-8 

1370 G0SUB1570 

1380 IFV<2THENUIF=0: G0SUB2350: G0T0850 

1390 IFX0>80THEN1030 

1400 S2=S2+1 

1410 WF=2 

1420 GOTO1050 

1430 Uli =Wl/57 

1440 S0UND7,247 

1450 S0UND8,10 

1480 S0UND9,10 

1470 F0RL=31T00STEP-1 

1480 S0UND8,L 

1490 FORA=1T04 

1500 NEXT 
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1510 NEXT 

1520 S0UND7,252 

1530 SOUND1,1 

1540 DX=G1/10*C0SCW1) 

1550 DY=-G1/10*SINCW1) 

1560 RETURN 

1570 SOUNDO,(YPRND255) 

1580 S0UND2,255-(YPRND255) 

1590 IFXP<00RYP<0THEN1640 
1600 V = CPOINTCXP, YP) 

1610 PLOTXP,YP 
1620 XO=XP 
1630 Y0=YP 
1640 XP=XP+DX 
1650 YP=YP+DY 
1660 DY=DY+♦1 
1670 NPLOTXO,YO 

1680 IFXP<OORYP>950RXP>159THENRETURN 

1690 IFV=0THEN1570 

1700 RETURN 

1710 FCLS 

1720 FGR 

1730 FC0L0UR2 

1740 PI=RND(40) 

1750 P2=RNDC40) + 110 
1760 Y=RND(10)+50 
1770 Y=Y*5 
1780 Y1=RND(20)-10 
1790 FORX=1T0159 
1800 PLOTX»Y/5T0X # 96 

1810 IFCX-Pl)<10IF(X-P1)>=0Q1=Y/5:GOTO1840 

1820 IF(X-P2)<10IFCX-P2)>=0Q2=Y/5:GOTO1840 

1830 IFY+Yl>1501F Y+Yl<480Y=Y+Y1 

1840 IF RNDC100)<10Y1=RNDC20)-10 

1850 NEXTX 

1860 X=P1 

1870 Y=Q1 

1880 G0SUB1930 

1890 X = P2 

1900 Y=Q2 

1910 G0SUB2010 

1920 RETURN 

1930 FC0L0UR3 

1940 F0R2*0T06 

1950 PLOTX+Z»Y-ZTOX+6,Y-Z 

1960 NEXTZ 

1970 FC0L0UR4 

1980 PLOTX+7»Y-4T0X+10 * Y-7 
1990 PLOTX+7.Y-5T0X+10,Y-7 
2000 RETURN 


.2010 FC0L0UR4 
2020 F0RZ=0T06 

2030 PL0TX+10-Z » Y-ZTOX+4, Y-Z 

2040 NEXTZ 

2050 FC0L0UR3 

2060 PLOTX+3 ,Y-4T0X, Y-7 

2070 PLOTX+3,Y-5T0X, Y-7 

2080 RETURN 

2090 A =INTCZ/10D 

2100 F0RY=0T04 

2110 POKE P+Y*40, Z C A, Y) 

2120 NEXTY 

2130 A=Z-A*10 

2140 F0RY=0T04 

2150 P0KEP+Y*40+1,ZCA,Y) 

2160 NEXTY 
2170 RETURN 

2180 F0RY=0T0160STEP40 
2190 POKEP+Y,42 
2200 AS=INKEYS 

2210 I FAS > = "0"ANDA$ < = "9"THEN2240 

2220 NEXTY 

2230 G0T02180 

2240 A = VALC AS D 

2250 F0RY=0T04 

2260 P0KEP+Y*40,Z(A,YD 

2270 NEXTY 

2280 RETURN 

2290 LGR 

2300 CLS 

2310 IFS1>4THENS$=CSELSESS=B$ 
2320 PRINTSS;" HAT GEWONNEN" 

2330 G0SUB2500 

2340 RUN 

2350 S0UND7,247 

2360 S0UND8,15 

2370 S0UND9,0 

2380 F0RL=0T031 

2390 FCOLOURRNDC 3) + 1 

2400 CIRCLEXO,YO,LAND3 

2410 S0UND6,LAND7 

2420 NEXTL 

2430 FC0L0UR1 

2440 F0RL=0T03 

2450 CIRCLEXO, YO, L 

2460 NEXTL 

2470 S0UND7,255 

2480 FC0L0UR3 

2490 RETURN 

2500 RESTORE 
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2510 F0RL=1T063 

2520 READO,T 

2530 PLAYC1,0,T,14) 

2540 F=RND(16) 

2550 F0RM = &HF000T08cHF000+LENCS$) 
2560 POKEM,F 
2570 NEXTM 

2580 FORM=1T0100-LENC S$) 

2590 NEXTM 
2600 NEXTL 
2610 PLAYC1,1,1,0) 

2620 RETURN 



TUERME VON HANOI 444- 

TURM 1 TURM 2 TURM 3 



Von Turm? 

Spielzug Nr. O 


Türme von Hanoi ist ein bekanntes Denkspiel. Die Regeln 
werden im Programm selbst erklärt. 

Eine Besonderheit für Denkfaule: Das Programm löst das Problem 
auf Wunsch auch selbst - und zwar mit der Minimalanzahl von 
127 Zügen. Die Rechnerlösung ist in den Zeilen 20 und 30 
enthalten - passen Sie hier besonders auf. daß Sie sich nicht 
vertippen. 

Programmlisting: 


10 CLS:CLEAR 500:0=0:A=7:CHAR4 

20 RD$ = "12132;312313£12132321312312132,312313212312^321313212132^312313212 
132321312^12132 f 321313212312,321312;312132312313£12132321312312132312” 

30 Z2$ = ”31321231232131321213231231321 2ß 12321,312312 } 132321,313212,312321,31 
32124 32312313212»132321,312312,13231 23 13212312321313212132312^313212” 

40 RD*1 

50 PRINT”Die Scheiben des linken Turms muessen” 

60 PRINT”in der gleichen Reihenfolge auf der” 

70 PRINT”mittleren Scheibe liegen!!” 

80 PRINT”Dabei darf niemals eine grosse Scheibe” 

90 PRINT”auf einer kleinerer liegen!!” 

100 PRINT5720.”1 - Rechner spielt”:PRINT§760,”2 - Sie spielen” 

110 X1$*INKEY$:IFX1$<>”1”ANDX1$<>”2”THEN110 

120 IFX1 $ * ” 1”THEN160 

130 FKEY1*”1 

140 FKEY2*”2 

150 FKEY3*”3 

160 DIMBSC3.8).TC3.8).FC3.7):C1*1:0*0 
170 POKE16409»70:POKE16410»100 
180 REM 

190 REM FARBEN 
200 REM 

210 FOR 3*1 TO 7 
220 READ FC 1.3) 
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230 NEXT 
240 REM 

250 REM POSITIONEN 
260 REM 

270 FOR C=1 TO 3 

280 FOR K=7 TO 1 STEP -1 

290 RERD TCC,K) 

300 NEXT K 
310 NEXT C 
320 REM 

330 REM SCHEIBEN-STRING*S ERSTELLEN 
340 REM 

350 FOR C=1 TO R 

360 BS C1,C)= CHR$ C 238)+STRINGS C C 1 ,202)+CHRS C 245) 

370 C 1 =C1+2 
380 NEXT C 
390 CLS 

400 GOSUB 640 
410 REM 

420 REM SCHEIBEN SETZEN 
430 REM 

440 FOR B =1 TO R 
450 COLOUR FC1,B) 

460 PRINT8647-R*40+B*40-B,BSC1,B); 

470 NEXT:PRINT:PRINT 
480 REM 

490 REM SPIELEN 

500 REM 

510 COLOUR 1 

520 PRINT8848,"Spielzug Nr."0; 

530 IFX1S = " 1"THENGOSUB1280:G0T0600 
540 PRINT8768,STRINGSC4,32); 

550 PRINT§760,"Von Turm"j:INPUTE 

560 I FE <10RE > 3THEN550 

570 PRINT8785,STRINGSC4,32)» 

580 PRINT§775,"nach Turm"::INPUTF 
590 IFF<10RF>3THEN580 
600 0=0+1:GOTO 860 
610 REM 

620 REM TUERME RUFBRUEN 
630 REM 

640 COLOUR1:FOR B=1 TO R+l 
650 PRINT8687-B*40,CHRSC225): 

660 PRINT§700-B*40,CHR$C225): 

670 PRINT§713-B*40,CHR$(225): 

680 NEXT 

690 PRINT§680,STRINGS(40,196); 

700 PRINT§285,"TURM 1";:PRINT§298,"TURM 2"::PRINTS311,"TURM 3 
710 PRINT888,STRINGSC3#" ");" TUERME VON HRNOI ";STRINGSC3," 
720 RETURN 
730 REM 

740 REM FRRBEN FUER SCHEIBEN 
750 REM 

760 DRTR 14,7,12,9,6,15,3 
770 REM 

780 REM DRTRS FUER POSITIONEN 
790 REM 



80p DATA 647,607,567, 527 , 487,447,407 
810 DATA 660,620,580,540,500,460,420 
820 DATA 673,633,593,553,513,473,433 
830 REM 

840 REM SUBROUTINE FUER SCHEIBEN-LOESCHEN 
850 REM 

860 FÜR V=1 TO A 

870 IF B$CE,V) > THEN 890 

880 NEXT V 

890 FÜR VI=1 TO A 

900 IF B$CF,V1) > ”” THEN 910 ELSE NEXT VI 

910 V1=V1-1 

920 IF V=8 THEN 1190 

930 IF VI<7 AND BSCE,V) < BSCF,V1+1) THEN 1140 
940 FCF,V1)=*FCE,V) 

950 FOR C*1 TO INTCLENCBSCE,V)))/2+l 

960 PRINT§TC E , V) - INTC LENC B$ ( E , V) ) /2)+C-2, CHRS C 32) ; 

970 PRINT§TCE,V)-INTCLENCBSCE,V))/2)+LENCBSCE,V)) -C+l,CHR$C32); 

980 NEXT:COLOUR1 

990 PRINT§TCE,V),CHR$(225): 

1000 REM 

1010 REM SUBROUTINE FUER SCHEIBEN-SETZEN 
1020 REM 

1030 COLOUR FCF,V1) 

1040 PRINTSTC F,VI)-INTCLENCB$(E,V))/2),CHRSC238),* 

1050 PRINT§TC F,VI) +INTC LENC BS C E,V))/2),OHRS(245); 

1060 FOR C = 1 TO INTC LENC B$ C E,V))/2) 

1070 PRINTSTCF,VI)-INTCLENCBSCE,V))/2)+C,CHRSC202): 

1080 PRINTSTCF,VI)-INTCLENCBSCE,V))/2) +LENCBSCE,V))-C-1,CHRSC2 

02) { 

1090 NEXT 

1100 IF F=2 AND Vl=l THEN 1250 
1110 BSCF,V1)=BSCE,V) : B$ C E , V) 

1120 REMT1CE)=T1CE)+1:T1CF)=T1CF)-1 
1130 GOTO 510 
1140 FOR Q=1 TO 5 

1150 COLOUR 4:PRINT§0,"Keine grosse Scheibe auf eine Kleinere 
1160 FOR Ql=1 TO 70:NEXT Ql 
1170 PRINTSO,STRINGSC40,128); 

1180 NEXT QjGOTO 510 
1190 FOR Q*1 TO 6 

1200 COLOUR 4:PRINT§0,”Turm”E”ist leer ! 

1210 FOR Ql»1 TO 70:NEXT Ql 
1220 PRINTSO,STRINGSC17,128); 

1230 NEXT QjGOTO 510 

1240 FKEY1*”LIST”: FKEY2=”RUN” J FKEY3=”AUT0” 

1250 IF 0 > 140 THEN 1270 

1260 CLS:PRINT§440,"BRAVO-Mit”0”Zuegen geschafft !”:PRINT:PRINTjEND 
1270 CLS:PRINT§440»"Mit”0”Zuegen geschafft-da fehlt die Uebung-wei 
terwachen !”:PRINT:PRINT:END 
1280 IFRD>128THENRDS»Z2S:RD=1 

1290 E*VAL C MIDS C RDS,RD,1)):F*VAL C MIDS C RDS,RD+1,1)):RD«RD+2:RETURN 
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Schiffe versenken 

Das im folgenden gelistete Programm ist eine Abwandlung des 
hinreichend bekannten Spiels "Schiffe versenken". Dieses Pro¬ 
gramm hat zwar nicht den höchsten Schwierigkeitsgrad, aber die 
Ausgabe des Feldes wird mit einigen grafischen Tricks gemacht. 
Am auffälligsten ist die Tatsache, das die Wellen tatsächlich 
rollen. Hier einige Worte dazu: 

In den Zeilen 1210 bis 1260 wird in dem Bereich von 409FH bis 
40E0H ein kleines Maschinenspracheprogramm initialisiert, das 
bei jedem 16. Aufruf den gesamten Bildschirm nach Zeichen 
zwischen 128 und 159 absucht und diese um 1 erhöht. Durch 
CALL 43D3 wird diese Routine in den Tastatur-DCB eingehängt 
(siehe Kapitel über die DCBs). Bei jeder 16. Tastaturabfrage 
werden nun die Wellen bewegt. Mit CALL 43DA wird dies wieder 
abgeschaltet. 

Noch einige Worte zum Spielablauf: 

Zunächst stellt der Rechner seine Schiffe auf. Diesfsind: 

1 Schlachtschiff ( 4 Kästchen lang ) 

2 Zerstörer ( 3 Kästchen lang ) 

3 Kreuzer C 2 Kästchen lang ) und 

4 Aufklärer C 1 Kästchen lang ) 

Sie können nun das rote Fadenkreuz, das oben links auf dem Was¬ 
ser erscheint, mit den 4 Pfeiltasten bewegen. Wenn Sie eine Po¬ 
sition erreicht haben, auf die Sie schießen wollen, drücken Sie 
<RETURN>. Der Rechner teilt Ihnen dann unten rechts mit ob Sie 
getroffen oder nur ins Wasser geschossen haben. Außerdem hört 
man bei einem Treffer eine Explosion und der zerschossene Teil 
eines Schiffes erscheint. Alle Schiffe liegen waagerecht, mit 
dem Bug nach rechts. Außerdem sind Sie an Ihrer Farbe erkenn¬ 
bar. In der untersten Bildschirmzeile sehen Sie ständig eine 
Auswertung Ihrer bisherigen "Arbeit": die Anzahl der abgegebe¬ 
nen Schüsse und die Anzahl der Treffer werden dort angezeigt. 

Wenn Sie alle Schiffe zerstört haben, erscheint noch eine Aus¬ 
wertung, wie gut (oder wie schlecht) Sie gespielt haben. 

Programmlisting: 
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10 CLS 

20 DEFINTA-Z 

30 DIMF1C10,10),FC10,10),RC4) 

40 G0SUB700 

50 GOTO1280 

60 DATAO,8640,30,4620 

70 DATA16416,8608,1054,4618 

80 DATAO,18480,135,-31613 

90 DATA4104,18472,391,-31742 

100 DATAO,4620,16609,8608 

110 DATA1026,4618 * 225,8640 

120 DATA128,-31613,4216,18472 

130 DATA256 *-31742,120,18480 

140 DATA16416,8608,1054,4618 

150 DATAO,8640,30,4620 

160 DATA4104,18472» 391,-31742 

170 DATAO,18480»135,-31613 

180 DATA1026 »4618» 225,8640 

190 DATAO,4620,16609,8608 

200 DATA256,-31742»120»18480 

210 DATA128,-31613,4216,18472 

220 DATA225,16416,8865,28 

230 DATA225,0,17280,60 

240 DATA120,4104,-14296,7 

250 DATA120,0,-28576,15 

260 DATA30,1026,12810,193 

270 DATA30,0,9240,195 

280 DATAl35,256,3074,240 

290 DATA135,128,-30330,112 

300 DATA225,0,17280,60 

310 DATA225,16416,8865,28 

320 DATA120,0,-28576,15 

330 DATA120,4104,-14296,7 

340 DATA30,0,9240,195 

350 DATA30,1026,12810,193 

360 DATA135,128,-30330,112 

370 DATA135,256,3074,240 

380 DATA1024,1540,1031,1285 

390 DATAO,0,4336,-32544 

400 DATAO,2056,2056,4127 

410 DATAO,0,0,16512 

420 DATA256,7175,13073,25894 

430 DATA-16384,6256,-6524,-11598 

440 DATA1024,1540,1286,1285 

450 DATAO,0,-32768,-32672 

460 DATAO,0,0,4127 

470 DATAO,0,0,16512 

480 DATAO,0,0,0 

490 DATAO,0,0,0 

500 DATAO,0,0,0 

510 DATAO,0,0,0 

520 DATAO,0,0,0 

530 DATAO,0,0,0 

540 DATA-251,-1,-103,-1 
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550 DATA-128, -1,-103,-1 
560 DATA-244, -1,-104,-1 
570 DATA-224,-12056,16544,128 
580 DATA25931,13094,7184,7 
590 DATA-11566,-6606 »6156,240 
600 DATA-251,-15393,-14463, -1 
610 DATA-128,-30745,-28799,-8273 
620 DATA-4852 , 25065,-4208 , -13 
630 DATA-16608,-28504 ,16544,128 
640 DATAO »0,0,0 
650 DATAO,0,0,0 

660 DATA6407,16673,-32447,-127 
670 DATA12480,1032,516,-254 
680 DATA-32383,16705,6433,7 
690 DATA514,1028,12296,192 

700 PRINT”Ich denke mir eine Aufstellung aus! 
710 F0RX=0T0511STEP2 
720 READA 

730 P0KEX-3072,AAND255 

740 P0KEX-3071,INTCA/256)AND255 

750 NEXTX 

760 G0SUB1210 

770 FORX=1T010 

780 FORY=1T010 

790 F(X,Y)=0 

800 Fl(X,Y)=0 

810 NEXTY,X 

820 FORZ=1T010 

830 READL 

840 FORX*1T04 

850 RCX)=0 

860 NEXTX 

870 SX=RNDC10) 

880 SY=RND(10) 

890 FORX=1T02 

900 IFRCX)< >OTHENNEXTX:G0T0840 
910 R*RND(2) 

920 IFRC R)< >0THEN910 

930 RCR) s 1 

940 TX-SX 

950 TY-SY 

960 FORX®1T0L 

970 IFFC TX,TY)< >0THEN890 

980 IFTX-1>OTHENIFFC TX-1,TY)< > 0THEN890 

990 IFTX+1<11THENIFFC TX+1,TY)< > 0THEN890 

1000 IFTY-1>OTHENIFFC TX,TY-1)< > 0THEN890 

1010 IFTY+1 < 11 THENI FFC TX, TY+1)00THEN890 

1020 0NRG0SUB1130,1150,1170,1190 

1030 IFTX <1ORTX>1OORTY <1ORTY >10THEN890 

1040 NEXTX 

1050 TX*SX 

1060 TY»SY 

1070 FORX®1T0L 

1080 FCTX,TY)*L 



1090 0NRG0SUB1130,1150,1170,1190 

1100 NEXTX 

1110 NEXTZ 

1120 RETURN 

1130 TX=TX+1 

1140 RETURN 

1150 TX=TX~1 

1160 RETURN 

1170 TY=TY+1 

1180 RETURN 

1190 TY=TY-1 

1200 RETURN 

1210 FORX=1T066 

1220 RERDR 

1230 P0KE&H439E+X,R 

1240 NEXT 

1250 RETURN 

1260 DATA58,158,67,60,230,15,50,158.67,194,227,3,229,197,33,0,68,126,2 

54,128,56,19,254.160,48,15,60,60,71.230,15,254,2,62,0,48.2,62.240,128, 

119,35,124,254,72,32,226,193,225,195,227,3,33,159,67,34,22,64,201,33.2 

27,3.34,22,64,201 

1270 DAT A4,3,3,2,2,2,1,1,1,1 

1280 C0L0UR1 

1290 CLS 

1300 PRINTS7,”** SCHIFFE VERSENKEN **” 

1310 TR=0 
1320 SH = 0 

1330 H1$ = CHR$ C160)+CHR$ C 161 ) 

1340 H2$=CHR$C176)+CHR$C177) 

1350 B1$=CHR$C162)+CHR$C163) 

1360 B2*=CHR$C178)+CHR$(179) 

1370 PRINT§40,STRING$C39,217 )i 
1380 PRINT§64,CHR$(242): 

1390 F0RX=2T023 
1400 PRINT§X*40+24,CHR$C225)j 
1410 NEXT 
1420 C0L0UR3 

1430 PRINTS146,"Schlachtschiff"; 

1440 PRINT §186,H1$;H1$;H1$;B1$; 

1450 PRINTS226,H2$;H2$;H2$jB2$ 

1460 C0L0UR1 

1470 PRINTS306,"Zerstoerer”; 

1480 PRINT§346,H1$;H1$;B1$; 

1490 PRINTS386,H2$;H2$;B2$; 

1500 C0L0UR4 

1510 PRINTS466,"Kreuzer": 

1520 PRINT§506,H1$;B1 $; 

1530 PRINTS546,H2$;B2$} 

1540 C0L0UR2 

1550 PRINTS626,"Aufklaerer M ; 

1560 PRINT §666,B1 $; 

1570 PRINTS706,B2$; 

1580 C0L0UR7 
1590 PRINTS786,"Wasser 
1600 CALL43DA 
1610 PRINT§826,j 
1620 FORX*1T07 
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1630 PRINTCHR$C128);CHR$C129); 

1640 NEXTX 
1650 PRINT§866,; 

1660 FORX»1T07 

1670 PRINTCHRSC144)jCHRSC145); 

1680 NEXTX 

1690 FORX»1T010 

1700 FORY»1T010 

1710 AD = 8cH4402+Y*80+2*X-2 

1720 P0KEAD-21504,1 

1730 POKEAD-21503,1 

1740 POKEAD-21464,1 

1750 POKEAD-21463,1 

1760 POKERD,128 

1770 POKEAD+1,129 

1780 P0KEAD+40,144 

1790 POKEAD+41,145 

1800 NEXTY,X 

1810 CRLL43D3 

1820 X=1 

1830 Y=1 

1840 PRINT§920, SH j "Schuesse,”; TR; "Tref f er "; 

1850 CU»«cH4400+Y*80+2*X 

1860 P0KECU-21504,2 

1870 POKECU-21503,2 

1880 POKECU-21464,2 

1890 POKECU-21463,2 

1900 POKECU,188 

1910 POKECU+1»189 

1920 P0KECU+40,190 

1930 POKECU+41* 191 

1940 KB$=INKEY$ 

1950 IFKB$»""THEN1940 

1960 IFF1(X,Y)< >0THENBF=0:G0SUB2140:G0T02080 

1970 CRLL43DR 

1980 CH = PEEKC ScH4400+826) 

1990 POKECU-21504,1 
2000 P0KECU-21503,1 
2010 POKECU-21464,1 
2020 POKECU-21463,1 
2030 POKECU,CH 
2040 POKECU+1,CH+1 
2050 P0KECU+40,CH+16 
2060 POKECU+41,CH+17 
2070 CRLL43D3 

2080 IFKB$»CHR$(13)THEN2480 
2090 IFKB$ = ”Ä”THENIFY>1THENY»Y-1 
2100 IFKB$»CHR$(10)THENIFY<10THENY»Y+1 
2110 IFKB$»CHR$(8)THENIFX>1THENX=X-1 
2120 IFKB$*CHR$(9)THENIFX<10THENX»X+1 
2130 GOTO1840 

2140 IFX«10THENCH*168:G0T02170 
2150 IFF(X+1,Y)»OTHENCH»168:G0T02170 
2160 CH»166 



2170 AD = 8cH4400+Y*80+2*X 
2180 IFBF=0THEN2360 
2190 S0UND6,RND(10)+21 
2200 S0UND7,7 
2210 S0UND8,16 
2220 S0UND12,200 
2230 SOUND13,9 
2240 FORT=1TO10 
2250 POKEAD-21504,6 
2260 POKERD-21503,6 
2270 POKEAD-21464,6 
2280 POKEAD-21463,6 
2290 POKEAD,164 
2300 POKEAD+1,165 
2310 P0KEAD+40,180 
2320 POKEAD+41,181 
2330 G0SUB2360 
2340 NEXTT 
2350 RETURN 
2360 C0 as 6-Fl ( X, Y) 

2370 P0KEAD-21504,C0 
2380 P0KEAD-21503,C0 
2390 POKEAD-21464,CO 
2400 P0KEAD-21463,C0 
2410 POKEAD,CH 
2420 POKEAD+1,CH+1 
2430 P0KEAD+40,CH+16 
2440 POKEAD+41,CH+17 
2450 RETURN 

2460 IFKBAND64=64THENIFX<1OTHENX=X+1 

2470 G0T01840 

2480 IFF1CX,Y)< >0THEN1840 

2490 FlCX,Y)-FCX,Y) 

2500 IFF1CX,Y)=OTHENPRINT§946,"Wasser ";ELSEPRINT§946,"Getrof f en" ;x B 

F s l:G0SUB2140:TR=TR+1 

2510 SH=SH+1 

2520 IFTR<20THEN1840 

2530 CALL43DA 

2540 CLS 

2550 C0L0UR1 

2560 PRINT"Sie haben mit"jSH i "Schuessen alle " 

2570 PRINT"Schiffe getroffen!!" 

2580 IFSH*20THENPRINT"Super, Sie sind ein hervorragender":PRINT"Ad*ira 
l" 

2590 IFSH<30THENPRINT"Sie haben gute Chancen, eine See-":PRINT"schlach 
t zu gewinnen" 

2600 IFSH<50THENPRINT"Sie sollten noch etwas ueben!" 

2610 IFSH>49THENPRINT"Auweia, da haben Sie aber viel Pech":PRINT"gehab 
t ! ! ! ! " 

2620 PRINT§960,"Neues Spiel??? CD/ ND": 

2630 NSS=INKEYS 

2640 IFNSS< >"3"ANDNS$ < >"N"THEN2630 
2650 IFNS$*"3"THENRUN 
2660 PRINT§400,"Schade" 

2670 END 
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HEKTIK 


ein komplexes Spiel Programm analysiert 


"Hektik” wird schon seit längerer Zeit für 39.- DM verkauft 
und gehört zu den beliebtesten TCS-SpielProgrammen. 

Vielleicht haben Sie es schon, dann werden Sie beim Spielen 
sicher eine Menge Spass gehabt haben. Wahrscheinlich haben Sie 
sich auch gefragt, wie man ein derartiges Spiel programmiert. 
Diese Frage soll nicht unbeantwortet bleiben! 

Zwei Voraussetzungen müßen allerdings erfüllt sein: 

Ihr Colour-Genie muß 32K RAM haben, und Sie müssen den 
"Colour-Compiler" besitzen. Denken Sie bitte nicht, daß wir Sie 
auf diese Weise zum Kauf des Compilers drängen möchten - 
der Compiler ist für schnelle Videospiel-Programmierung einfach 
unerlässlich, es sei denn Sie programmieren in Maschinenspra¬ 
che . 

Es folgt nun das Basic-Listing Calso der "Source-Code") von 
Hektik. Wichtig ist, daß Sie beim Einschalten die MOD SEL-Taste 
gedrückt halten, da sonst der verfügbare Speicher nicht 
ausreicht ! 

Nach dem Listing finden Sie eine detaillierte Erklärung des 
Programms. Bezüglich der Bedienung des "Colour-Compilers" 
informieren Sie sich ggf. in dessen Handbuch. 

Das Basicprogramm geben Sie bitte genauso ein, wie Sie es 
hier aufgelistet finden. Die Grafikzeichen, die im Listing 
Vorkommen, geben Sie, wie in Kap. 6 des Handbuchs "Colour 
Basic - leicht gelernt" beschrieben, mit der MOD SEL-Taste 
ein 

Programmlisting: 
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170 DATA17Ü£5,-25,-6247,9342 
180 DATA17025,-6334,-26113,15462 

19 0 D A T A 2 5 8,5 1 1 , 1 , 0 

20 0 D A T A O, 12 7 3 6,525,2052 
210 DATA-32704,-32513, 128,0 
£28 DATA0,-29693,16560,41£8 
£30 DATA-153S,6264,-31492,1924 
£40 DATA-1538,6264,18472,3624 
250 DATA15900,13186,-25538,-26472 
268 DATA31808,-13£36,14716,6425 
£70 DATA-26498,6296,10020,-16352 
£80 DATA7168,14654,7230,6425 

£90 DATA6526,6169,-7132,772 

300 DATA14336,-25476,14460,-26472 

310 DATA-24705,6174,8511,-8159 

320 DATA-24705,6174,4628,12308 

33© FORL=0TO£55 : PÜKEL-3072,PEEKCL+184 3 6} 

=NEXTL 
340 CHAR2 

350 DATA 769,5,769,5,1282,5,1282,5,769,4 

,769,4,514,512,770,521,514,0 

360 FORL=0TO31 =POKE30720+L,PEEK<L+18692) 

=NEXTL 

370 P0KE16409,7 : P0KE16410,6 
380 CLS 

390 E=£ : M2=3 : R1=1 

400 GOSUB2070 

410 B2=0=P2=0:Q=0:Q1=0 

420 GOSUB2580 : COLOUR11 : FORY=80TO880STEP1 
60 : FORX=0TO38STEP£ 

430 POKE17408+X+Y,1£9 : POKE17409+X+Y,137 
440 POKEX+Y-4096,6 : POKEX+Y-4095,6 
450 NEXTX,Y 

460 FORX=0TO39 : P0KE18288+X,202 : NEXTX 
470 FORY=40TO680STEP160 
480 A = W£0 + 2 * B = 37-Y-"20 
490 F0RY1=0TO160STEP4© 

500 P0KE17408+Y+Y1+B,1£8 : P0KEY+Y1+B-4096 
, 3 

510 P0KE1740S+Y+Y1+A,128 : PQKEY+Y1+A-4096 
, 3 

520 NE X T Y1 ,Y 

53© PRINT6920,"PUNKTE : BONUS' 

□ AEGER = "; 

540 PRINTS956, M £ ; 

550 IFT=0LETP2=P2+B2 

560 S0UND7,56 : SOUNDS,16 : S0UND9,0 : SOUND10 
,0 : SOUND1 ,2 : SQUND3,4 : SOUMD5,2 : SOUND12, 10 
570 T=0 : T£=30719 : 02=3 : B2=R1$500 
580 FORL=0TOE 

590 P0KE31000+L,L+15 : P0KE31010+L,1 

600 P0KE31020+L,1 

610 P0KE31030+L,3 

620 P0KE31 040 + L, 32 

630 NEXTL 
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640 X = 19 : Y=S0 : H = 32 : Hl= 32 : H2 = 32 : X2=1= Y2 = 0 
650 A=PEEK<-1984)=IFA=6GOTO380 
660 XI=0 = Y1=0 

670 IF (AAND3£)=32LETX1=-1 =6OTO710 
680 IF< AAN064X64LETX1=+1=GOTO710 
690 IFCAAND08)=08LETY1 =-1 ;GOTO710 
700 IFCAANDI6>=16LETY1=+1 
710 P=17408+X+Y*40 
720 IFI1<1GOTO750 

730 IFH1=238LETH1=32ELSEIFH1=245LETH1=32 

740 IFH2=238LETH2=32ELSEIFH2=£45LETH2=32 

750 C=C+1:CI=<C/2>AND1 

760 IFH>143IFH<146G0T01120 

770 IFH1>143IFH1<146G0T01120 

780 IFB2>0LETB£=B2-1 

790 IF<AAND1 27X >0POKEP, H = POKEP+40, Hl = PO 
KEP+40+X2,H2 : POKEP-21504/15=P0KEP-21464,1 
5 

800 IFX+X1=0LETX1=0ELSEIFX+X1=39LETX1=0 
810 IFX1<>0LETX£=X1 : Y2=0 
820 IFY1<>0LETY2=Y1 X£=0 
830 PI=P+Y1*40=P=P+X1 

840 Z = PEEK(P + 80) = IFZ0128IFZ0129IFZ013 

7IFZO135IFZO143IFZO202LETX1=0 

850 IFZ=13560T01990ELSEIFZ=143G0T01990 

860 IFPEEK(P1+40X >1 28LETY1 =0 

870 X = X + X1 = Y = Y + Y1 =P=17408 + X + Y*40 = IF < A AND 

127)<>0LETH=PEEK<P)=H1=PEEK<P+40)=H£=PEEK 

< P + 40 + X2) 

880 IFI1<1GOTO900 

890 IFH£=£38GOSUB1880ELSEIFH2=245GOSUB18 

80ELSEIFH2=230GOSUB1880 

900 POKEP-21504,7=POKEP-21464,8 

910 IFX2< >0IFH2 = 32POKEP-21464 + X2,0 

920 IFX2=-1POKEP,153 : POKEP+40,158+C1= POK 

EP+39,148 

930 IFX2=+1POKEP,152 ; POKEP+40,150+C1= POK 

EP+41,146 

940 IFY2O0POKEP, 1 55 + C1 *2 = POKEP + 40,154 + C 
1 *2 

950 IF<AAND1 28X >1 2860T01 070 
960 IFX2=0GOTO1050 

970 SOUND8,16 : SOUND13,9 : SOUND0,0 : SOUND1, 
4-C 1 

980 POKEP+40+X2,148-CX2+1)+C1 

990 IFC1=0GOTO1070 

1000 P=P+80+X2=Z=PEEK<P) 

1010 IFPEEKC-19£0)=1GOTOI050 
1020 IFZ>128IFZ<135P0KEP,Z+1=GOTO1070 
1030 IFZ>136IFZ<143P0KEP,Z+1=GOTO1070 
1040 GOT01070 



1050 IFZ>129IFZ<136PGKEP,Z-1 =GOTQ1070 
1060 IFZ>137I FZ<1I^POKEP ^Z - 1 =GOTO1070 
1070 Q 1 = Q 1 + 1 = I FQ 1 > < 6-R1 X 2 L E T Q 1 =0 : 60SUB 1 
400ELSEFORM=1TO300 : NEXTM 
1080 IFZ2=1LETZ2=0 : GOTOI120 
1090 COLOURRND<16>=PRINTS14,”** HEKTIK * 
*"i - PRINTS927,P2; "0"; : PR INTS942,B2 ; ”0 " ; 
1 100 IFT-1=ELETT = 0 : RI=R1+1 = IFE< 5LETE = E+1 
= GOTO420ELSE420 
1110 GOTO650 

1120 S0UND7,56 : S0UND6,0 : FÜRL=8TG10 : SOUND 

L, 16 : NEXTL : SOUND12,90 : SOUND 13,9 

1130 FQRM=1T03100STEP5 : SOUND0,M : S0UND2,N 

^2 = SOUND4, M-^4 = NEXTM 

1140 SGUND7,255 

1150 M2=M2-1 : IFM2=0GOTO1180 

1160 B2=0 

1 1 70 GOTO420 

1180 IFR2>P2GOTO1200 

1190 R2=P2 

1200 F ORL = 0TO8 

1210 IFPEEK<3110S+L*10>+PEEKC31109+L*10> 
$256< P2G0T01240 
1220 NEKTL 
1230 GOTO380 

124 0 S0UND7,7 : F0RM = 8T010 : SOUNDN, 16 : NEXTM 
1250 SOUNDS*0 : SOUNDl 2, 100 : SOUND13,9 
1260 CLS 

1 270 FORM = 0TO31 :COLOURRNDC16> = PRINTS210, 
"NEUER REKORD"; 

1280 PRINTS25Ü,”— j 

1290 S0UND6,M 
1300 NEXTM 

1310 FORM=31190TO<31100+L*10>STEP-10:FOR 
N=0TO9 

1320 POKEM+N,PEEKCM+N-10> 

1330 NEXTN : NEXTM 

13 4 0 PRINTS568,"Geben Sie Ihrer« Namen ei 

n : " 

1350 PRINTS697,".”i=PRINTS697,CHR 

$( 1 4> ; 

1 360 P = 31 1 00 + L*1 0 : G0SIJB251 0 
1370 P0KE31108+L*10,P2AND255 
1380 P0KE31109+L$10,P 2 ^ 2 5 6 
1390 GOTO380 

140 0 F0RL=31000TO31000+E 

1410 V=PEEK<L>:W=PEEK<L+10> : Q=PEEK<L+^0> 

142 0 IFV=255GOTO1660 

1430 IFQ>145IFQ<160LETZ2=1 : RETURN 

H10 IFI1<1IFQ=238LETQ=32ELSEIFQ=245LETQ 

=32ELSEIFQ=230LETQ=32 

1450 V1=PEEKCL+20>-2=W1=PEEK<L+30>-2 
1460 POKE17408+V+W*40,Q 
1470 POKEV + W*40-4096,15 
1480 IFQ>128IFQ<144POKEV+W*40-4096,6 
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1490 IFV+V1=0POKEL+20,3ELSEIFV+V1=39POKE 
L + 20 , 1 

1 500 A=PEEK<17448+V+W*40) =B=PEEK(17368+V 
+ W*40) 

1510 IFW=1POKEL+30,3ELSEIFW=£1POKEL+30,1 
1520 I F A = 135LETQ=1£9=GOTOI740ELSEIFA=14 3 
LETQ =137 = GOTOI740 

1530 I F W 1 = 1 IFA=128LETV1=0 : GOTOI550ELSEIF 
AO£02IFA>145LETV1=0 = GOTOI 550 
1540 I F U) 1=1LE TW 1=0 : IFQ=1£8POKEL+20, RND < 2 
) 0 R 1 

1550 I FW 1=-1IFB=128LETV1=0=GOTOI570ELSEI 
FB>145LETV1=0=GOTOI570 

1560 IFW1=-1LETW1=0=IFQ=128POKEL+£0,RND< 

2 ) OR 1 

1 570 V=V+V1 = W=W+W1 

1580 POKEL+40,PEEKC17408+V+W*40) 

1590 POKE17408+V+W*40,143+RNDC2) 

1600 POKEV+W*40-4096,5 
1610 PÖKEL,V = POKEL+1 0, W 

1620 IFPEEK<L + 40X144G0T01660ELSEIFPEEK( 

L + 40)>145G0T01 660 

1630 F0RM=31000TO31000+E 

1 640 IFLOMIFPEEKai)=VIFPEEK<M+10>=WPOKE 
L+40,PEEK<M+40) 

1650 NEXTM 
1660 NEXTL 

1670 T£ = T£+1 = IFT2 = 3075£LETT2 = 307£0 : IFO£< 
6LET02=0£+1ELSE0£=3 

1680 A = PEEK < T£ > =PLAY<3,02,A, 10) = IFAO0SO 

UND8,0=SOUN010, 16=S0UND13,9 

1690 I FI = 1GOTOI840 

1700 IFRND< 1 000XR1 GOTOI 720 

1710 RETURN 

1720 I1=50 =1 = 1 

1730 RETURN 

1740 IFRND< 1 00X <R1 *1 0JGOTO1 960 
1750 S0UND9,15=S0UND3,2 

1760 P = V + W*40+17448 = Ql=6 = F0RM = PT018288ST 
E P 4 0 

1 770 POKEN,Q = POKEM-21504,Ql = Q = PEEK < M + 40 > 
=Q1=PEEK<M-21464)=P0KEM+4@,144=P0KEM-2146 
4,5 

1780 S0UND2,(M/3)AND255 

1790 FORN=1TO300=NEXTN 

1800 NEXTN = POKEM,Q = POKEM-21504,Ql 

1810 PÖKEL,255=T=T+1 

1820 S0UN09,0 

1830 P2=P2+E*5=GOTOI660 

1840 IFI1>0LETI1=11-1 

1850 IFI1=0 PRINTS699," “i =I=0=RETURN 

1860 IF <I1A N D1 ) = 1 PRINT8699, “ • “ ; ELSE P 
RINTS699,"•#"; 

1870 RETURN 

1880 1=0=PRINT6698,“1000“J 

1890 B$=CHR$(1)+CHR$<3)+CHR*<5)+CHR$<4)+ 
CHR$<6)+CHR*<5)+CHR$<5)+CHR»<1 )+CHR$<1 ) 
1900 FORL=0TO8=C=PEEK<30752+L) 

1 910 PLAY < 3,4,C, 14) 

1920 FORM=1TO900 = NEXTM, L 



1 930 PRINTS693, " “ ; 

1940 H=32 : H1=3£ : H2=32 : P2=P2+100: 1=0 = 11=0 
: A = 8 

1950 RETURN 

I960 POKE17448+V+W*40,1£9+<VAND1>*8 
1970 F0RM=7T01STEP-1=PLAY<2,4,M,1 5> : FORM 
= 1 TO30 0:HEXTN : NEXTM*SQUND9,0 
1 980 6 0 T 015 3 0 

199 0 IFH2=1£8IFPEEK<P-40>< >128LETH2 = 32 
2000 POKEP-X1 ^ H : POKEP + 40-K1 ;Hl : POKEP+40- 
XI+ X2,H 2 

2010 X = X + X1 : Y = Y + 4 : X2 = X 1 = P=1 7408+X+YS40 
2020 H=PEEK<P>:H1=PEEK<P+40>H£=PEEK<P+4 
0 + X1 > 

2030 IFX£ = -1P0KEP j 153 : POKEP + 40 ^ 159 : POKEP 
+39,148 ELSE POKEP,152=POKEP+40,151:POKEP 
+41,146= X 2 = 1 

2048 POKEP-21 5 0 4, 7 : POKEP-21 464,8 : IFH2 = 32 
POKEP-21464+X2,0 

£050 SOUN09, 15 : SOUNDl 0, 15 : SOUN03,2 : SOUND 
5,2 = FGRM = 8T0£55STEP4 = S0UND2,M = F0RN=1TOI 8 = 
NEXTN : SOUNO4,255-M = F0RN=1TOIÜ = NEXTN,M = SOU 
ND9,0:S0UND10,0 
£060 SOTO650 

2070 print " ■ ■ waamm m ■ ■■■■ 


2080 PRINT" 

■ ■ ■ - 

2090 PRINT" 

2100 PRINT" 

■ H ■ " 

£110 PRINT" 


2120 F0RL=17488TQ17607 : IFPEEK<L>=202 POK 
EL,160 
£130 NEXTL 

£140 FORX=0TO38STEP2 : PRINTG280+X,C H R $ <12 
9 >jCHR$<137>; :NEXTX 
£150 C0L0UR16 
2160 PRINT=PRINT 

£170 PRINT" Geschrieben von Duergen Buc 
hmuel1er" 


2180 PRINT" fuer Trommeschlaeger Comput 
er Studio" 

2190 PRINT : PRINT" Copyright < C > 

1 983" 

£200 PRINT : PRINT 

£210 PRINT" REKORDPUNKTZAHL : " ; R 2 ;"0" 

2220 PRINT" -" 

2230 PRINT" LETZTER SPIELER 1 " j P 2 ;"0" 

2240 PRINT" -" 

2250 PRINT:PRINT"Druecken Sie <S> um das 
Spiel zu starten"; 

£260 PRINT" oder <R> fuer die Rekordl 

iste."; 


26 



££78 FORL=0TO7 

££80 POKEL-£816,PEEK<<<L+C>AND7>-3064> 
££90 MEXTL 
£300 C=C+1 

£310 F0RM=1TO500 : NEXTM 
£ 3 £ 0 C$=INKEY$ 

£330 IFC$="S"RETURN 
£3*»0 I F C $ < >"R"G O T 0 £ £ 7 0 

£3 5 0 CLS : S Ü U N D 7 *7 : SOUNDS; 16 : S0UND9 ^ 16 : SO 
UND1 0, 1 6 : SOUND 6,3 1 : SOUN Dl £ ; 50 : SOIJND1 3 t 9 
£360 P0KE17151,1-»0:P0KE17H7,19:POKE171-* 
^,17=LGR 

£370 PRINT612," REKORDLISTE " : PRINT05£, " 

£3 8 0 FQRL = 0TO8 = C0L0URL+1 
£390 PRINTei£8 + L**»0,CHR$<*»9 + L>;" . " ; 

£-»00 FORM=31100+L*10TO31107+L*10 
£^10 IFPEEK<MX3£PQKEM,3£ 

£*»£0 PRINTCHR$<PEEK<M>X 

£*»30 NEXTM 

£*»^0 PRINT" " ; 

£*»50 PRINTPEEK<31108 + L*10)+PEEK<31109 + L* 
1Ü>*£56;"Ü" 

£*»60 NEXTL 

£*»70 PRINTG530, "Dr uecken Sie < S > . " ; 

£^8Ü IFPEEK<&HF80*»X >8GOTO£*»80 
£*»90 POKE1 71 51 ; 70 : POKE1 71 7 > 38 : P0KE1 71 ^ ^ 

,3 £:LGR 
£500 RETURN 

£510 PI= P : FORM = 0TO7 : PQKEP+M;3£ : NEXTM 
£ 5 £ 0 Y$=INKEY$ : IFY$=“"GOTO£5£0 
£530 A=ASC<Y$> : IFA=13PRINTCHRX15>; : RETU 
RN 

£5*»0 IFA = 8IFP>P1 POKEP, 3£ = P = P-1 : PRINTCHR$ 
< 8 > ; " . “j CHRI(£»)j :GOTO£5£0 
£558 IFA<3£GOTO£5£0ELSEIFA>1£7GOTO£5£0 
£560 IFPCP1+8P0KEP,A*P=P+1 =PRINTY$; 

£570 GOTO£5£0 

£580 F0RL = 1 7*»08TO1 8*»31 = PÖKEL , 3£ = NEXTL 
£59 0 POKE8 C H*»0£0,0:POKE&H^0£1,68 
£600 RETURN 



Die Zeichen von HEKTIK 


CHR$C128) CHR$C129) CHRSC130) CHRSC131) CHRSC132) CHRSC133) CHRSC134) 



CHRS(135) CHRS(136) CHRSC137) CHRSC138) CHRSC139) CHRSC140) CHRSC141) 



■ ■ L J I 




| | 

::J i:: 
: .M L-- 



CHRS C142) CHRS C143) CHRS C144) CHRS C145) CHRS(146) CHRS(147) CHRSC148) 



CHRS(149) CHRSC150) CHRSC151) CHRSC152) CHRSC153) CHRSC154) CHRSC155) 



CHRS C156) CHRS C157) CHRSC158) CHRS C159) CHRS C160) CHRS C161) CHRS C162) 
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Erläuterung des Programmes 


ZeileCn) 
10.♦.320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 


Funkt ion/Bedeutung 

DATA-Zeilen für die definierbaren Zeichen. 

Der Colour-Compiler legt DATAs als Doppelbytes 
ab Adresse 4804H ( = 18436 dez♦) ab. 

Leseschleife für definierbare Zeichen. Kopiert 
256 Bytes von 4804H nach F400H. 

CHAR 2, also sind die Zeichen 128...191 selbst¬ 
definierbar und 192...255 vorgegeben. 

DATA-Zeilen für die HEKTIK-Melodie. 

Melodie in Buffer nach 30720 kopieren (Adresse 
von A$ beim Colour-Compiler) 

Cursor umdefinieren. Sechste und siebte Zeile 
sind gesetzt und nicht-bl inkend♦ 

Bildschirm und Farbspeicher löschen. 

E = Anzahl der Verfolger -1: M2 * Anzahl der 
Jäger : RI = Runde 

Unterprogramm für Ausgabe des Titelbildes 
aufrufen und auf "S” warten. 

B2 = Bonus : P2 = Punkte : Q & Ql = Zähler 

CLS mit POKEs aufrufen. Y- und X-Schleife 
für Zeichnen des Bodens eröffnen. 

Boden besteht abwechselnd aus den Zeichen 129 
und 137. 

Farbe POKEn. 6 = C0L0UR 5 * orange. 

Nächster Ziegel. Ebene. 

Unterste Zeile wird mit 202 belegt, damit hier 
das Hacken unmöglich ist. 

Schleife für Anfangspositionen der Leitern. 

A und B sind die X-Positionen der jeweils zwei 
Leitern in einer Etage. 
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Zeile(n) 


Funkt ion/Bedeutung 


490 Zweite Y-Schleife für Länge der Leitern. 

500 Sprosse und Farbe (3 = weiß) der ersten Leiter 

in Bildschirm bzw. Farbspeicher poken. 

510 Ebenso mit der zweiten Leiter verfahren. 

520 Nächste Sprosse. Etage 

530 mit C0L0UR 11 in der letzten Zeile anzeigen. 

540 Anzahl der restlichen Jäger rechts unten anzeigen 

550 Wenn T = 0 (d.h. Alle Verfolger sind abgestürzt) 

dann Bonus zur Punktzahl addieren. 

560 Soundregister vorbelegen. 

570 T * Zahl der abgestürzten Verfolger : T2 = Anfang 

der Melodie -1 : 02 ■ Oktave : B2 = Bonus 

580 Schleife für Vorbelegung der Positionen und 

Richtungen der Verfolger eröffnen. 

590 X- und Y-Position poken. 

600 X-Richtung poken (entspr. -1). 

610 Y-Richtung poken (entspr. 0). 

620 Zeichen unter Verfolger mit 32 ( = Space) 

vorbelegen. Dieses Zeichen wird später anstelle 
des jeweiligen Verfolgers ausgegeben. Deshalb 
werden Leitern und Ziegel nicht zerstört. 

630 Nächster Verfolger. 

640 X * X-Position des Jägers : Y * Y-Position des 

Jägers : H, Hl. H2 = Zeichen unter dem dem Jäger 
mit 32 (= Space) vorbelegen. : X2 = Richtung des 
Jägers für die Berechnung der Zeichen vorbelegen. 
: Y2 = Y-Richtung vorbelegen. 

650 Tastaturabfrage: Bei A = 6 ist (BREAK) & 

(CLEAR) gedrückt. 

660 X- und Y-Richtung gleich null setzen. 
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Zeil eCn) 
670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810...820 

830 

840 


Funkt ion/Bedeutung 

bei A = 32 ist Bit 5 gesetzt. Linkspfeil. 

bei A = 64 ist Bit 6 gesetzt. Rechtspfeil. 

bei A = 8 ist Bit 3 gesetzt. Pfeil nach oben. 

bei A = 16 ist Bit 4 gesetzt. Pfeil nach unten. 

P = Bildschirmadresse des Jägers. 

II = Zähler für die blinkenden Bonus-Kugeln. 

Wenn II - 0, werden die beiden folgenden Zeilen 
übersprungen. 

Hl = Zeichen das vorher unter den Beinen des 
Jägers stand. 

H2 = Zeichen unter der Hacke. 

C * Zähler : CI ist abwechselnd 0 oder 1. 

Wenn das Zeichen unter dem Kopf des Jägers 
gleich einem Verfolger ist» dann EXITUS. 

Ebenso bei dem Zeichen unter der Hacke. 

Wenn der Bonus noch größer Null ist. dann dekre- 
mentieren♦ 

Wenn A AND 127 = 0, bedeutet dies, keine Pfeil¬ 
taste gedrückt wurde. Also wird bei einer Bewe¬ 
gung der letzte Jäger im Bildschirm gelöscht. 

Der Farbspeicher wird auf 15 (= weiß) gesetzt. 

Wenn X-Position plus Richtung auf den rechten 
oder linken Rand kommen, dann X-Richtung Null 
setzen. 

Übernahme der Richtungen in Variablen zur Berech¬ 
nung der Zeichen für den Jäger. 

PI * Position + Y-Richtung 
P = Position + X-Richtung 

Z = Zeichen unter den 'Füßen' des Jägers. 

Wenn alle Vergleiche nicht zutreffen, steht der 
Jäger nicht auf etwas, auf dem er laufen kann. 



ZeileCND 

850 

860 

870 

880 

890 

< 900 

910 

920.. .940 

950 

960 

970 

980 

990 

1000 

1010 

1020.. .1040 
1050.1060 


Funkt ion/Bedeutung 

Wenn Z=135 oder Z=143. Absturz des Jägers. 

Wenn der Jäger nicht auf einer Leiter steht, dann 
wird die Y-Richtung gleich Null gesetzt. 

X,Y und R neu berechnen, wenn A AND 127 <> 0. 
dann neue Zeichen unter dem Jäger in H. Hl und 
H2 abspeichern. 

Wenn II < 1, dann blinken die Bonuskugeln nicht. 

Wenn Zeichen unter der Hacke ein Zeichen der 
Bonuskugel ist. dann Unterprogramm für Bonus¬ 
addition ab Zeile 1880 aufrufen. 

Farben für Jäger POKEn. CP-21504 ergibt Farb- 
speicheradresse. z.B. 17408-21504=-4096D 

Wenn seitliche Bewegung und das Zeichen unter 
der Hacke ein Leerzeichen ist, dann Farbspeicher 
auf 0 C=grauD setzen. 

In Abhängigkeit von den Richtungen werden die 
Zeichen des Jägers berechnet und in den Bild¬ 
schirmspeicher gePOKEt. 

A AND 128 * 128 bedeutet, daß die Leertaste 
gedrückt wurde CHacken). Sonst nach Zeile 1070. 

Wenn X-Richtung Null ist, kann nicht gehackt 
werden. 

Ton beim Hacken. 

Hacke auf und ab bewegen (Mit CID. 

Wenn C1=0, dann ist die Hacke oben, und das 
Loch wird nicht vergrößert. 

P wird nun die Bildschirmposition unter der Hacke. 
Z speichert das dortige Zeichen. 

SHIFT gedrückt ? Wenn ja, dann 1050. 

In Abhängigkeit vom Ziegel typ das Loch vergrößern. 

In Abhängigkeit vom Ziegel typ das Loch schließen. 
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Zeile(n) 


Funkt ion/Bedeutung 


1070 

1080 

1090 

1100 

1110 

1120 

1150 

1160 

1180. 

1240. 

1400 

1410 

1420 

1430 

1440 


In Abhängigkeit von der Spielrunde, wird unter¬ 
schiedlich oft die Routine zur Bewegung der 
Verfolger aufgerufen. Ansonsten wird eine 
Warteschleife ausgeführt. 

Wenn Z2=l ist. wurde man von einem Verfolger 
erwischt Csiehe Unterprogramm ab 1400). 

Ausgabe von ”** HEKTIK **”, Punktzahl und Bonus 
in zufälligen Farben. 

Wenn alle Verfolger abgestürzt sind, wird 
Absturzzähler T gleich Null gesetzt, die Runden¬ 
zahl RI um 1 erhöht und, wenn E<5 CE=Anzahl der 
Verfolger-1) wird E ebenfalls um 1 erhöht. 

Dann in die nächste Runde (Zeile 420). 

Zur Hauptschleife (Tastaturabfrage...). 

..1140 Ton bei Verlust eines Jägers. 

M2 (Jägerzahl) erniedrigen, wenn M2=0 dann 
Spielende (Zeile 1180 folgende). 

1170 Bonus = 0, zur Hauptschi eife. 

..1230 Erreichte Punktzahl wird mit der Rekordliste 
verglichen. Ist man nicht unter den 
ersten Neun, Sprung zum Titel. 

..1390 Eingabe des Namens und Einsortieren in die 
Rekordliste. 

Schleife für Verfolgerbewegung eröffnen. 

X,Y und Zeichen unter dem jeweiligen Verfolger 
Q aus dem Speicher in Variablen holen. 

Bei V=255 ist der Verfolger schon abgestürzt. 

Wenn Q ein Teil des Jägers ist, dann Flag Z2 
setzen und Rücksprung. 

Wenn GL ein Teil der Bonuskugel ist, aber der 
Bonus nicht blinkt, wird Q=32 (Leerzeichen) 
gesetzt. 


1450 


X- u. Y-Richtung in Variablen speichern 



Zeile(n) 
1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 


Funkt ion/Bedeutung 

Das letzte Zeichen unter dem jeweiligen Verfolger 
( = Q) wird wieder in den Bildschirmspeicher 
gePOKEt. 

Farbspeicher weiß setzen. 

Wenn Q ungleich Leiter (=128) und ungleich Leer¬ 
zeichen (=32), dann Farbspeicher auf orange (=6). 

Wenn X-Position plus X-Richtung gleich linker 
oder rechter Rand, dann X-Richtung umdrehen. 

A wird Wert des Zeichens unterhalb und B oberhalb 
der Bildschirmposition des Verfolgers. 

Wenn Y-Position = 1 Coberste Etage) oder 
Y-Position = 21 (unterste Etage), dann Y-Richtung 
entsprechend umdrehen. 

Wenn ein Loch im Boden unter dem Verfolger ist 
(bei A=135 oder A=143), dann stürzt er ab. 

Wenn Verfolger auf Leiter, dann X-Richtung auf 
Null setzen oder wenn er direkt über dem Boden 
und außerdem auf dem Weg nach unten ist. 

Sonst X-Richtung mit 1 oder 3 belegen. 

( RND (2) 0R 1 ergibt immer 1 oder 3 ). 

Wenn Verfolger auf dem Weg nach oben und auf 
einer Leiter, dann X-Richtung gleich Null setzen. 

Sonst wie bei Zeile 1540. 

X- und Y-Richtung zu den Positionen addieren. 

Neues Q aus dem Bildschirmspeicher in die Tabelle 
speichern. 

Auf die Bildschirmposition einen der beiden Ver¬ 
folgertypen POKEn. 

Farbspeicher mit grün setzen ( ■ 5 ). 

Neue X- und Y-Position in der Positionstabelle 
abspeichern. 
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ZeileC n) 


Funkt ion/Bedeutung 


1620 Wenn der Verfolger nicht über seinesgleichen 

steht, dann Sprung zu 1660 

1630.. .1650 Sonst Tabelle nach Verfolger mit gleicher X- und 

Y-Position durchsuchen, und wenn gefunden, dann 
dessen Wert für Q übernehemen. 

1660 Nächster Verfolger. 

1670 Zähler für Noten um eins erhöhen. Wenn Ende der 

Melodie erreicht ist, dann Zähler zurücksetzen 
und Zähler für Oktave um eins erhöhen. Wenn 
Oktave = 7 dann wieder bei 3 beginnen. 

1680 A = Ton aus Tabelle. Mit PLAY auf 3. Tonkanal 

ausgeben. Wenn A<>0 dann Hüllkurve auf Impuls 
programmieren. 

1690 Wenn Bonuskugel sich schon bewegt CFlag gesetzt), 

dann zu Zeile 1840 

1700.. .1730 Sonst mit einer mit der Rundenzahl zunehmender 

Wahrscheinlichkeit das Flag und den Zähler für 
den Bonusblinker belegen. 

1740 Absturz eines Verfolgers. Mit steigender Anzahl 

der Runden immer öfter das Loch schließen. 

1750.. .1830 Absturz eines Verfolgers. Dabei werden die 

Zeichen und die Farbe unter dem abstürzenden 
Verfolger immer in Q und Ql zwischengespeichert. 
Anschließend wird zur Punktzahl Anzahl der Feinde 
mal 5 addiert. 

1840 Wenn Zähler für Bonuskugel CI1) noch größer Null 

ist, dann wird er um eins erniedrigt. 

1850 Wenn II anschließend gleich Null ist, dann wird 

der Blinker gelöscht und das Flag zurückgesetzt. 

1860 Sonst wird abwechselnd (AND 1) eine der zwei ver¬ 

schiedenen Kugel typen ausgegeben. 

1870 Zurück zur Hauptschleife. 


1880 


Bonuskugel wurde berührt. Dann wird das Flag zu¬ 
rückgesetzt und statt der Kugel "1000” angezeigt. 
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Zeile(n) 
1890 

1900 

1910 

1920 

1930 

1940 


1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 


Funkt ion/Bemerkung 

Die Melodie bei einem Bonus wird mit Hilfe von 
CHR$(X) in B$ zwischengespeichert. 

Schleife für neun Töne. C wird aktueller Ton. 

Auf Kanal 3 mit Lautstärke 14 ausgeben. 

Warteschleife und nächster Ton. 

Die "1000" wieder löschen 

Sämtliche Zwischenspeicher für den 'Untergrund' 
des Jägers durch 32 (Leerzeichen) ersetzen. 100 
zu den Punkten addieren (wird als 1000 angezeigt) 
und Zähler und Flag zurücksetzen. 

Zurück zur Hauptschleife. 

Das Loch, über dem der Verfolger, steht wieder 
schließen. 

Ton ausgeben. 

Zurück, kein Absturz. 

Der Jäger fällt eine Etage tiefer. Wenn die Hacke 
vorher in einer Leiter war, dann das Zeichen 
durch ein Leerzeichen ersetzen. 

Jäger auf alter Position mit den zwischengespei¬ 
cherten Werten für den Untergrund löschen. 

Neue Position berechnen. 

Neue Hintergrundwerte aus dem Bildschirmspeicher 
lesen und in H, Hl und H2 ablegen. 

Aus der letzten X-Richtung die neuen Zeichen für 
den Jäger berechnen und in den Bildschirmspeicher 
POKEn. 

Farben für den Jäger in den Farbspeicher POKEn. 
Ton erzeugen und wieder abschalten. 

Zurück zur Hauptschleife (Tastaturabfrage). 
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ZeileC n) 


Funkt ion/Bemerkung 


2070*..2110 Ausgabe des Titels. 

2120.2130 CHR$C202) Grafik-Zeichen durch CHR$C160) er¬ 

setzen. Dieser wird dann anschließend umdefi¬ 
niert. sodaß die Mauer durch die Schrift zu 
laufen scheint. 

2140 Darunter eine Zeile Boden ausgeben. 

2150.. .2260 Restliche Texte ausgeben (In C0L0UR 16 = weiß). 

2270.. .2290 Diese Routine kopiert in CHR$C160) die Mauer um 

jeweils ein Byte weitergeschoben. 

2300 Zähler erhöhen. 

2310 Warteschleife. 

2320.. .2340 Tastaturabfrage auf "S” oder "R”. 

2350 Bei M R” wird die Rekordtabelle ausgegenben. 

Explosionsgeräusch in PSG programmieren. 

2360 CRTC auf doppelte Zeichenhöhe umprogrammieren. 

2370.. .2470 Rekordliste ausdrucken. Neun Plätze in ver¬ 

schiedenen Farben ausgeben. Hinter der Punktzahl 
eine zusätzliche Null anzeigen. 

2480 Ist gedrückt ? Nein, dann wieder abfragen. 

2490 Zeichenhöhe wieder auf normal programmieren. 

2500 Zurück vom Unterprogramm. 

2510 Unterprogramm für Eingabe eines Namens mit 8 

Buchstaben. Die RAM-Adresse des Buffers steht 
in der Variablen P. Zuerst den Buffer löschen. 

2520.. .2570 Tastendrücke abspeichern bis RETURN gedrückt 

wird. Mehr als 8 Zeichen werden nicht angenommen 
und man kann mit Linkspfeil nicht vor die erste 
Bufferadresse PI zurückgehen. 

2580.. .2600 Schneller CLS, der Leerzeichen in den Bildschirm¬ 

speicher POKEt. Die Cursorposition in 4020H und 
4021H wird auf linke obere Ecke gePOKEt. 
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Bubble Sort 


"Bubble Sort" ist ebenfalls ein Spielprogramm, daß Sie mit 
dem "Colour Compiler" compilieren müssen. 

Sie können das Programm aber auch mal im normalen Basic laufen 
lassen, um die immense Geschwindigkeitserhöhung, die der 
Compiler bringt, zu sehen. Ruf eine Erklärung des Programmes 
sei verzichtet - die Spielregeln finden Sie im Programm selbst. 

Programmlisting: 


10 CLS:C0L0UR1 
20 PRINT§14,"Bubble Sort" 

30 PRINT:PRINT**Bei diesem Spiel geht es darum, die" 

40 PRINT"eine Sorte Kugeln C"::C0L0UR3:PRINTCHR$C230)::C0L0UR1:PRINT") 
auf die eine und" 

50 PRINT"die andere Sorte C ": :C0L0UR2:PRINTCHRSC235)::COLOUR1:PRINT") 
auf die andere" 

60 PRINT**Seite des Bildschirms zu bringen. Den" 

70 PRINT**bl auen Teil des Mittelstreifens koennen" 

80 PRINT**Sie mit dem Hoch- und Runterpfeil be-" 

90 PRINT"wegen und mit <RETURN> oeffnen.":PRINT:PRINT:PRINT"Bitte drue 
cken Sie <RETURN>" 

100 R = PEEKC &HF840)RND1 
110 IFR=0THEN100 

120 S0UND7,248:S0UND8,16:S0UND9,0:SOUND10,0:SOUND1,0:S0UND0,100:SOUND1 
2,4 

130 C0L0UR4:CLS 

140 ********* UMRRNDUNG ZEICHNEN 
150 F0RX=0T039 

160 P0KEX-4096,3:POKE17408+X,202 
170 POKEX-3216,3:P0KE18288+X,202 
180 NEXTX 

190 F0RY=40T0840STEP40 
200 P0KEY-4096,3:POKE17408+Y,202 
210 P0KEY-4057,3:POKE17447+Y,202 
220 POKEY-4076,6:POKE17428+Y,202 
230 NEXTY 

240 ********* KUGELN ZUFRELLIG SETZEN 
250 F0RL*0T09 
260 R=2 

270 X=RNDC 38):Y=RNDC21):R-CLRND1)*3+R:Xl=RNDC2)0Rl:Y1-RNDC2)0R1 
280 IFX=20G0T0270 

290 POKE31000+L,X:P0KE31010+L,Y:P0KE31020+L,R:P0KE31030+L,X1:P0KE31040 
+L, Y1 

300 G0SUB760 
310 NEXTL 
320 Z=0 

330 P1=40:P=40:D1=0 

340 Dl=D1+1:PRINT§920,D1:" Zeiteinheiten": :R^PEEKC&HF840) 

350 IFCRRND8)=81FP>40LETP s P-40 
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360 IFC RAND16) = 161FP < 800LETP = P+40 

370 F0RY=40T0840STEP40:P0KEY-4076,6:POKE17428+Y,202 

380 IFY = PPOKEY-4076,8ELSEIFY=P+40P0KEY-4076,8 

390 IF(AAND1)=11FY = PPOKE17428+Y,32ELSEIFY-P+40P0KE17428+Y,32 

400 NEXTY 

410 G0SUB430 

420 G0T0340 

430 C1=0:C2=0:F0RL=0T09 

440 X = PEEKC 31000+L }:Y=PEEKC31010+L) 

450 R=PEEKC 31020+L) 

460 X1 = PE EK C 31030+L)-2:Yl=PEEKC31040+L)-2 

470 IFX<20IF C LAND1)=OLETC 1=C1+1 

480 IFX>201FCLRND1)=1LETC1=C1+1 

490 IFX<20IF(LRND1)=1LETC2=C2+1 

500 IFX>201 FCLRND1)=0LETC2=C2+1 

510 POKE 17408+X+Y*40,32 

520 B=PEEKC17408+X+X1+Y*40) 

530 C=PEEK(17408+X+CY+Y1)*40) 

540 D=PEEK(17408+X+X1 + C Y+YlD *40) 

550 SOUND1,1:1FD< >321FB = 32LETY1=0-Y1:SOUND13,9:G0T0590 ELSE IFC=32LETX 
1=0-X1:S0UND13,9:G0T0590 
560 SOUND1,0 

570 IFB < > 32LETX1=0-X1:SOUND13,9 
580 IFC < >32LETY1=0-Yl:S0UND13,9 
590 X=X+X1:Y=Y+Y1:G0SUB760 
600 P0KE31000+L,X 
610 P0KE31010+L,Y 
620 POKE31030+L , Xl+2 
630 P0KE31040+L, Yl+2 
640 NEXTL 

650 IFZ=OIFC 1 = 10G0T0670ELSEIFC2=10G0T0670 
660 RETURN 

670 RE STORE:POKE P+17428,202:POKE P+17468,202: Z= 1:FORQ=1T0255STE P6:GOSUB 
430 

680 S0UND9,15:SOUND10,15 

690 S0UND3,0:S0UND2,Q:S0UND5,0:S0UND4,255-Q 

700 NEXTQ 

710 S0UND7,255 

720 CLS:PRINT”Sie haben es in”;Dl:PRINT”Zeiteinheiten geschafft.” 

730 A = PEEKC &HF840)AND1 
740 IFA=0THEN730 
750 GOTO10 

760 POKE 8tHF000+X+Y*40, R 
770 IFA=2THENR1=230ELSER1=235 
780 POKE StH4400+X+Y*40,Rl 
790 RETURN 
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Tilgungsplan 

Das folgende Programm hilft Ihnen bei der Berechnung der Abzah¬ 
lung einer Ratenschuld. Dabei kann man wählen, ob die Schuld 
mit konstanter Annuität (Gesamtbeiastung = Zinsen + Tilgung) 
oder mit konstanter Tilgung erfolgen soll. 

Programmlisting: 


10 CLS 

20 C0L0UR3:PRINT”Tilgungsplan einer Ratenschuld” 

30 PRINT 
40 CLEAR 

50 C0L0UR4:INPUT”1 - Konstante Gesamtbeiastung 
2 - Konstante Tilgung”;B 
60 0NBG0T070,220 

70 INPUT”Annuitaet, Zins, Kapital eingeben 
”;A,P,K# 

80 PRINT 

90 C0L0UR2:PRINT”Zeit Zins Tilgung Restschuld” 

100 K1#=K# 

110 X=X+1 

120 ZI=INTCK#*P+.5)/100 

130 T=A-ZI 

140 IFT> =K#THENT = K# 

150 R#=K#-T 

16Q D$=” ### #######.## #######.## #######.##” 

170 PRINTUSINGD$;X;ZI;T;R# 

180 IFT< =0THENC0L0UR7:PRINT”Eine Tilgung ist nicht moeglich”:PRINT”Die 
Zinsen bet ragen”;ZI;”DM und sind groesser”;PRINT”als die Tilgung von” 
;T;”DM”;G0T0490 

190 IFR#< =0THENPRINT”In”;X;”Zeitperiöden ist die Schuld von”:PRINTK1#; 
”DM getilgt”:G0T0490 
200 K#=R# 

210 G0T0110 
220 DIM ZC1000) 

230 A$ = ” ### #######.## ######.## #######.##" 

240 B$=”K=#######.## N=### 

250 PRINT 

260 INPUT”Bitte Kapital, Zeit, Zinssatz eingeben 
”; K, N, P 
270 Kl=K 
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280 PRINT 
290 PRINT 
300 PRINT 

310 PRINTUSINGB$ j K;N;P 

320 C0L0UR2:PRINT”Zeit Zinsen Tilgung Annuitaet 

330 PRINT 

340 T = INT C100*K/N+. 5 ) /100 
350 FORI=1T0N-1 

360 IFC 1=21)ORC1=41)ORC1=61)THENINPUT”Weiter”; C$ 

370 Z=INTCK*P+.5)/100 

380 PRINTUSINGAS;I:Z;T;T+Z 

390 K=K-T 

400 ZCI)=Z 

410 NEXTI 

420 U=INTC K*P+.5)/100 
430 ZCN)=U 

440 PRINTUSINGA$;N?U;K;U+K 
450 FORI=1T0N 
460 Z1=Z1+ZCI) 

470 NEXTI 

480 PRINT"Gesamte Zahlungen =";Z1+K1 

490 PRINT:C0L0UR8:INPUT"Andere Berechnung C3/N)”jC$ 

500 IFLEFT$(C$,1)="3”0RLEFT$CC$ »1)=”j"THEN10 
510 END 



Gleichungen mit 3 Unbekannten 


Dieses Mathematikprogramm berechnet die 3 Unbekannten von 3 
Gleichungen der Form ax+by+cz=d. 

Programmlisting: 


10 CLS:C0L0UR1 

20 PRINT”Dieses Programm berechnet aus drei ”:PRINT”Gleichungen der Fo 
rm” 

30 PRINT”ax+by+cz=d Ca,b,c und d gegeben) die”:PRINT”Unbekannten x,y u 
nd z” 

40 PRINT 

50 C0L0UR2:INPUT”al, bl, cl und dl”;RI,Bl,C1,Dl 
60 C0L0UR3:INPUT”a2, b2, c2 und d2” ; A2,B2,C2,D2 
70 C0L0UR7:INPUT”a3, b3, c3 und d3”;A3.B3,C3,D3 
80 D=A1*B2*C3+B1*C2*A3+C1*A2*B3-A3*B2*C1-B3*C2*A1-C3*A2*B1 
90 DX=D1*B2*C3+B1*C2*D3+C1*D2*B3-D3*B2*C2-B3*C2*D1-C3*D2*B1 
100 DY=A1*D2*C3+D1*C2*A3+C1*A2*D3-A3*D2*C1-D3*C2*A1-C3*A2*D1 
110 DZ=A1*B2*D3+B1*D2*A3+D1*A2*B3-A3*B2*D1-B3*D2*A1-D3*A2*B1 
120 PRINT:PRINT:C0L0UR4 

130 IFD=0THENPRINT”Das System ist nicht loesbarEND 

140 PRINT”x =” i DX/D 

150 PRINT”y *”;DY/D 

160 PRINT”z =”;DZ/D 

170 END 
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Pascalsches Dreieck 


Für dieses Programm wird ein Drucker benötigt. Ausgedruckt wird 
das sogenannte Pascalsche Dreieck (siehe Ausdruck unten). 

Das Pascalsche Dreick wird in der Mathematik dazu benutzt, um 
die Binominalkoeffizienten von Gleichungen n-ten Grades abzu- 
lesen. 


Pasca L s <1: l~t ö s Dr'eiöcck* 

n= 0-1- 

n= 1- 1 1 - 

n= 2-1 2 1- 

n= 3 -i 3 3 t - 

n = 4 -l 4 6 4 1- 

n= 5-1 5 10 10 5 1- 

n= 6-1 6 15 20 15 6 1- 

n= 7-1 7 21 35 35 21 7 1- 

n= 8-1 8 28 56 70 56 28 8 1 

n= 9-1 9 36 84 126 126 84 36 9 

n= 10-1 10 45 120 210 252 210 120 45 10 


1 


1 -- 


Programmlisting: 

10 LPRINTCHR$C15) 

20 CLEAR100 
30 DIMDRC17»17) 

40 LPRINTCHRSC14) " Pascalsches Dreieck" 

50 LPRINTCHR$(15) 

60 DRC0, 0) ® 1 
70 CLS 

80 PRINT"Pascalsches Dreieck" 

90 TAB=32 

100 F0RANZAHL=1T011 
110 LPRINT"n-"; 

120 LPRINTUSING"##"jANZAHL-1; 

130 F0RA=0T0TABB 
140 LPRINT"-"; 

150 NEXT 

160 F0RS=1T0ANZAHL 

170 DRC ANZAHL,S)=DRCANZAHL-1,S-1)+DRC ANZAHL-1,S) 

180 IFS>1THENLPRINTUSING"######";DRCANZAHL,S);:NEXTELSELPRINTUSING"#" 
DRCANZAHL,S);:NEXT 
190 F0RA=1T0TAB 
200 LPRINT "-"} 

210 NEXT 
220 LPRINT 
230 TAB=TAB-3 
240 NEXT 

250 LPRINTSTRING$(6,10) 
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Garbage Collect 


Das Programmlisting, das nun folgt, soll Ihnen einen Effekt 
verdeutlichen, dem Sie möglicherweise schon begegnet sind, ohne 
ihn sich erklären zu können. 

Gemeint ist, daß sich der Computer in längeren Basic-Programmen 
für einige Sekunden "aufhängt”, d.h. daß das Programm stehen¬ 
bleibt und sogar mit der BREAK-Taste nichts mehr zu machen ist. 

Wenn Sie das folgende Programm eingeben und starten, wird das 
Problem sehr deutlich: Obwohl zwischen den einzelnen PRINTs nur 
ganz normale Variablenzuweisungen ausgeführt werden, dauert 
dies bis zu einigen Sekunden. Dies kann auch dann Probleme be¬ 
reiten, wenn Sie Daten vom Band einiesen, da durch eine derar¬ 
tige Verzögerung Daten verlorengehen können. 

Was ist nun der Grund für diese Verzögerung und wie kann man 
das Problem umgehen und seine Basicprogramme damit schneller 
machen? 

Der Grund ist Zeile 50: 

50 DIM R(MEM/3-500) 

In dieser Zeile wird ein großes Feld dimensioniert (abhängig 
vom vorhandenen Speicher). Wird nun eine neue Variable ein¬ 
geführt, wird das ganze Feld verschoben, um für die Variable 
Platz im Speicher zu schaffen. Dies verursacht besagte Verzö¬ 
gerungen. Fügt man nun eine Zeile ein, die alle später ge¬ 
brauchten Variablen bereits vor dem DIM-Befehl schon einmal 
benutzt, werden diese schon vor dem Feld im Speicher angelegt, 
das dann später nicht mehr verschoben werden muß. Dies können 
Sie z.B. bei dem vorliegenden Programm einfach dadurch errei¬ 
chen, indem Sie die ganz unten gelistete Zeile 5 mit eingeben, 
die allen benutzten Variablen den Wert 0 zuweist. 

Das Programm läuft dann erheblich schneller! 

Programmlisting: 

10 CLS:C0L0UR1 
20 DEFSTRA 
30 R=0 
40 Q=R 

50 DIMAC MEM/3-500) 

60 A ( 0) - " 

70 AC1)="<RETURN>" 

80 CLS 

90 PRINT"Druecken Sie <RETURN> zur Demonstration":PRINT"des Garbage Co 
llect" 

100 Q=l-Q 
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110 C0L0URRNDC8):PRINT§13,RCQ); 

120 F0RR =1T020 

130 IFINKEY$ < >CHR$ C13)THENNEXT:G0T0100 
140 CLS:C0L0UR9 
150 PRINT"X » w ; 

160 X = 2 
170 PRINTX 
180 X1=X 

190 PRINT"Zwei und zwei sind"; 

200 Y = X+X 
210 PRINTY 
220 Y1=Y 

230 C0L0UR1:PRINT"Wussten "; 

240 ft="" 

250 C0L0UR2:PRINT"Sie"; 

260 B=0 

270 C0L0UR3:PRINT", dass "; 

280 C=0 

290 C0L0UR4:PRINT"Ihr "; 

300 D=0 

310 C0L0UR5;PRINT"Computer "; 

320 E =0 

330 C0L0UR6:PRINT"so " 

340 F=0 

350 C0L0UR7:PRINT"lang"; 

360 G=0 
370 PRINT"s"; 

380 H = 0 
390 PRINT"a"; 

400 1=3 
410 3=K 
420 PRINT"m "; 

430 K=C 
440 L=K 
450 M=B 

460 C0L0UR8:PRINT"ist ?" 

470 C0L0UR1 


5 B=0:C=B:D=B:E=B:F=B:G=B:H=B:I=B:3=B:K=B:L=B:M=B:Q=B:R=B:X=B:X1=B:Y=B 
:Y1=B:R$="" 
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Ein Maschinensprache-Monitor in Basic 


Da es im Laufe dieses Buches nötig sein wird, kleinere Pro¬ 
gramme in hexadezimal einzugeben oder sich Speicherinhalte an¬ 
zusehen, geben Sie bitte das hier aufgelistete Basicprogramm 
ein und speichern Sie es auf Kassette: 


10 CLS 

20 CLEAR 1000 
30 PRINT"Command"; 

40 INPUT A$ 

50 IF A$ = "" THEN 30 
60 Q0SUB 1460 

70 IF B$="P" THEN PR*1: QOSUB 1460 ELSE PR=0 
80 C$="HAETGRW" 

90 FOR A =1 TO LENC CS) 

100 IF BS< >MID$(CS, A, 1)THEN NEXT A: GOTO 30 

110 ON A GOTO 130, 390, 590, 740, 900, 1040, 1730 

120 GOTO 30 

130 GOSUB 1510 

140 X=Z 

150 Z=X 

160 GOSUB 1600 
170 PRINT ZS;" "; 

180 IF PR*1 THEN LPRINT Z$;" "; 

190 C*0 

200 FOR Y=0 TO 7 
210 Z = PEEKC X+Y) 

220 C=C+Z 

230 GOSUB 1600 

240 PRINT RIGHTSCZS, 2);" "; 

250 IF PR*1 THEN LPRINT RIGHTSCZS, 2);" "; 

260 NEXT Y 
270 PRINT" "; 

280 IF PR*1 THEN LPRINT" "j 
290 Z=C 

300 GOSUB 1600 

310 PRINT RIGHTSCZS, 2) 

320 IF PR*1 THEN LPRINT RIGHTSCZS, 2) 

330 X=X+8 

340 KB = PEEKC8cHF840) 

350 IF KB*2 THEN 30 
360 IF KB<>128 THEN 150 
370 KB=PEEKC 8cHF840) 

380 IF KBOl THEN 370 ELSE 150 
390 GOSUB 1510 
400 X=Z 
410 Z=X 

420 GOSUB 1600 
430 PRINT ZS;" "; 

440 IF PR*1 THEN LPRINT ZS;" "; 

450 FOR Y=0 TO 23 
460 Z*PEEKCX+Y) 

470 IF Z<32 THEN Z*ASCC"."D 
480 PRINT CHRSCZ); 

490 IF PR*1 THEN LPRINT CHRSCZ); 

500 NEXT Y 
510 PRINT 



520 IF PR=1 THEN LPRINT 

530 X=X+24 

540 KB=PEEK( &.HF840) 

550 IF KB = 2 THEN 30 
560 IF KB<>128 THEN 410 
570 KB=PEEK(&HF840) 

580 IF KB< >1 THEN 570 ELSE 410 
590 GOSUB 1510 
600 X=Z 
610 Z=X 

620 GOSUB 1600 
630 PRINT ZS;" - "; 

640 Z=PEEKCX) 

650 GOSUB 1600 

660 PRINT RIGHTSCZS, 2);" - "; 
670 AS = "" 

680 INPUT A$ 

690 IF AS = "" THEN 30 

700 GOSUB 1510 

710 POKE X, Z AND 255 

720 X=X+1 

730 GOTO 610 

740 GOSUB 1510 

750 X=Z 

760 Z=X 

770 GOSUB 1600 
780 PRINT ZS;" - "; 

790 Z=PEEKCX) 

800 GOSUB 1600 

810 PRINT RIGHTSCZS, 2);" C"; 
820 IF Z<32 THEN Z=ASCC'\") 

830 PRINT CHRSCZ);") - "; 

840 AS = "" 

850 INPUT AS 

860 IF AS="" THEN 30 

870 POKE X, ASCCAS) 

880 X=X+1 

890 GOTO 760 

900 GOSUB 1510 

910 ZI = INTCZ/256)AND 255 

920 Z2=Z AND 255 

930 POKE 16526, Z2 

940 POKE 16527, ZI 

950 GOSUB 1460 

960 IF BS=" " THEN 950 

970 A$=B$+A$ 

980 GOSUB 1510 
990 Z=Z AND 255 
1000 Z=USRCZ) 

1010 GOSUB 1600 
1020 PRINT RIGHTS(ZS, 2D 
1030 GOTO 30 
1040 GOSUB 1510 



1050 IF Z>=0 THEN Xi=Z ELSE Xl=Z+65536 

1060 GOSUB 1460 

1070 IF B$ = " " THEN 1060 

1080 A$=B$+A$ 

1090 GOSUB 1510 

1100 IF Z>=0 THEN X2=Z ELSE X2=Z+65536 
1110 PRINT" A B A+B A-B" 

1120 PRINT" "; 

1130 Z=X1 

1140 GOSUB 1600 

1150 PRINT Z$;" "; 

1160 Z=X2 

1170 GOSUB 1600 

1180 PRINT Z$;" "; 

1190 Z=X1+X2 

1200 IF Z>65535 THEN Z = Z-65536 
1210 GOSUB 1600 
1220 PRINT Z$;" "j 
1230 Z=X1-X2 

1240 IF Z<0 THEN Z=Z+65536 
1250 GOSUB 1600 
1260 PRINT Z$ 

1270 Z=X1 

1280 GOSUB 1420 

1290 PRINT Z$;" "j 

1300 Z=X2 

1310 GOSUB 1420 

1320 PRINT Z$;" "; 

1330 Z=X1+X2 

1340 IF Z>65535 THEN Z=Z-65536 
1350 GOSUB 1420 
1360 PRINT Z$;" "; 

1370 Z=X1-X2 

1380 IF Z<0 THEN Z=Z+65536 
1390 GOSUB 1420 
1400 PRINT Z$ 

1410 GOTO 30 

1420 Z$=STR$CZD 

1430 Z$=RIGHT$CZ$, LENCZ$)-1D 

1440 IF LENCZ$)<5 THEN ZS=STRING$C5-LENCZ$), 325+ZS 
1450 RETURN 
1460 B$="" 

1470 IF LENCA$)=0 THEN RETURN 
1480 B$=LEFT$CA$, 1) 

1490 A$=RIGHT$CA$, LENCA$)-1) 

1500 RETURN 

1510 Z=0 

1520 GOSUB 1460 

1530 IF B$<"0" OR B$>"F" THEN 1580 
1540 IF B$>"9" AND B$<"A" THEN 1580 

1550 IF BS< = "9" THEN ZI=ASCCB$)-48 ELSE ZI=ASC(B$)-55 
1560 Z=Z*16+Z1 
1570 GOTO 1520 
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1580 IF Z> 32767 THEN Z = Z-65536 
1590 RETURN 

1600 IF Z>32767 THEN Z=Z-65536 
1610 ZI = INTC Z/256)RND 255 
1620 Z2=Z RND 255 
1630 Z$ = ”” 

1640 Z3-INTC Zl/16) 

1650 GOSUB 1710 
1660 Z3=Z1 RND 15 
1670 GOSUB 1710 
1680 Z3=INTC Z2/16D 
1690 GOSUB 1710 
1700 Z3=Z2 RND 15 

1710 IF Z3<10 THEN Z$ = Z$+CHR4CZ3+48) ELSE Z$ = Z$+CHR$(Z3+55) 
1720 RETURN 
1730 RESTORE 
1740 WR$ = *"* 

1750 FOR X= 1 TO 127 

1760 RERD R 

1770 WR$ =WR$+CHR$ CR) 

1780 NEXT 

1790 X = VRRPTRC WR$) 

1800 X=PEEKCX+l)+256*PEEKCX+2} 

1810 IF X>32767 THEN X = X-65536 
1820 R=X+95 

1830 R1 = INT(R/256 D RND 255 

1840 R2=R RND 255 

1850 POKE X+66, R2 

1860 POKE X+67, RI 

1870 POKE X+75, R2 

1880 POKE X+76, RI 

1890 GOSUB 2140 

1900 GOSUB 2210 

1910 GOSUB 2140 

1920 GOSUB 2210 

1930 GOSUB 2140 

1940 PRINT”Filename"; 

1950 INPUT PN$ 

1960 FOR XI=X TO X+5 
1970 POKE XI, 32 
1980 NEXT 

1990 FOR Xl=l TO LENCPNS) 

2000 POKE X-l+Xl, RSC C MIDS(PN$, XI, 1)) 

2010 NEXT 
2020 X=X+6 

2030 X1 = INT C X/256)RND 255 
2040 X2=X RND 255 
2050 POKE 16526, X2 
2060 POKE 16527, XI 
2070 XI=USR(0) 

2080 GOTO 30 


2090 DATA 0, O, 0, O, O, O, 32, 32, 32, 32, 32, 32 
2100 DATA 42, 142, 64, 17, 250, 255, 25, 205, 63, 2, 62, 

2, 6, 6, 126, 35, 205, 31, 2, 16, 249, 17, 244, 255, 25, 

, 221, 94, O, 221, 86, 1, 221, 110, 2, 221, 102, 3 
2110 DATA 175, 237, 82, 35, 124, 183, 40, 8, 6, O, 205, 
244, 125, 69, 183, 196, O. 0, 62, 120, 205, 31, 2 
2120 DATA 221, 126, 4, 205, 31, 2, 221, 126, 5, 205, 31, 
2130 DATA 62, 60, 205, 31, 2, 120, 205, 31, 2, 123, 205, 
2, 205, 31, 2, 129, 79, 26, 19, 205, 31, 2, 129, 79, 16, 
2 

2140 GOSUB 1510 

2150 Z1 = INT C Z/256)AND 255 

2160 Z2=Z AND 255 

2170 POKE X, Z2 

2180 POKE X+l, ZI 

2190 X=X+2 

2200 RETURN 

2210 GOSUB 1460 

2220 IF B$=" " THEN 2210 

2230 A$=B$+A$ 

2240 RETURN 


85, 205, 31, 
229, 221, 225 

O, O, 37, 24, 

2 , 201 

31, 2, 79, 12 
247, 195, 31, 
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Dieser Monitor unterstüzt 7 Befehle, nämlich: 

1 . Hex-Dump 

Eingabe: Hadresse 

Ab der eingegebenen Adresse wird der Speicherinhalt in hexa¬ 
dezimal gelistet. Jeweils nach Ausgabe einer Zeile wird die 
Tastatur auf folgende Tasten abgefragt: 

<CLEAR> - Listing abbrechen. 

<Leertaste> - Listing anhalten, bis <RETURN> gedrückt wird. 
Die einzelnen Zeilen haben folgendes Format: 

Die ersten 4 Zeichen geben die Adresse an, in der das erste 
der 8 Bytes, die in dieser Zeile gelistet werden, steht. 

Dann folgen die 8 Bytes und zum Schluß, etwas abgesetzt, 
folgt die sogenannte Checksum. Dieses Byte ist das nieder¬ 
wertige Byte der Summe aller 8 Bytes und dient als Prüfmög¬ 
lichkeit für die Richtigkeit einer Eingabe. Alle Maschinen¬ 
programme in diesem Buch werden als Hex-Dump mit Prüfsumme 
gelistet, so daß Sie eine einfache Möglichkeit haben, die 
Richtigkeit Ihrer Eingabe zu prüfen. 

2. ASCII-Dump 
Eingabe: Aadresse 

Ab der eingegebenen Adresse wird der Speicherinhalt als 
ASCII-Zeichen gelistet. Jede Zeile beginnt mit der Adresse, 
in der das erste der 24 folgenden Zeichen steht, dann folgen 
die ASC11-Zeichen. Jedes Byte unter 32 dez. wird als '. ' 
dargestellt, um die Bildschirmausgabe nicht durch Codes wie 
'Backspace' etc. zu zerstören. Auch beim ASCII-Dump kann die 
Ausgabe durch <CLEAR> abgebrochen und durch <Leertaste> an¬ 
gehalten werden. 

3. Edit hexadezimal 
Eingabe: Eadresse 

Ab der eingegebenen Adresse kann der Speicherinhalt verän¬ 
dert werden. Es wird jeweils die Adresse und der bisherige 
Inhalt dieser Speicherstelle ausgegeben. Sie können dann ein 
neues Byte eingeben, das dann in dieser Speicherstelle abge¬ 
legt wird. Wenn Sie statt einer Eingabe nur <RETURN> drük- 
ken, wird der Editmodus abgebrochen. 

4. Edit ASCII 
Eingabe: Tadresse 

Ab der eingegebenen Adresse können Sie Texte direkt in den 
Speicher eingeben. Die Adresse wird angegeben, ihr Inhalt 
wird in hexadezimal und ASCII (Code kleiner als 32 = 
ausgegeben. Sie können nun ein Zeichen eingeben, das an die¬ 
ser Speicherstelle gespeichert wird. Auch hier wird die Ein¬ 
gabe abgebrochen, wenn Sie nur <RETURN> drücken. Achtung: Um 
ein Leerzeichen in den Speicher einzugeben, müssen Sie fol¬ 
gendes eingeben: " Dies liegt daran, daß der INPUT-Befehl 
des Colour-Basic alle führenden Leerzeichen ignoriert, eine 
Eingabe eines Leerzeichens allein also als Leerstring ange¬ 
sehen wird. 
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5. Go to memory 
Eingabe: Gadresse byte 

Es wird zu einem Programm gesprungen» das bei der eingegebe¬ 
nen Adresse beginnt. Wenn Ihr Programm mit einem CALL 0A7FH 
beginnt» so können Sie ein Byte in das L-Register übergeben. 
Wenn Sie Ihr Programm mit einem DP 0A9AH beenden» so wird 
der Inhalt des L-Registers wieder an das Basic übergeben und 
der Monitor gibt es in hexadezimal aus. 

6. Hexadezimal Rechnung 
Eingabe: Rzahl1 zahl2 

Zahl 1, Zahl2» ihre Summe und ihre Differenz werden in hexa¬ 
dezimal und ASCII ausgegeben. 

7. SYSTEM-Band schreiben 
Eingabe: Wstart ende einsprung 

Zusätzlich wird noch ein Programmname abgefragt. Dieser Name 
darf maximal 6 Zeichen lang sein und das erste Zeichen muß 
ein Buchstabe sein. Dann wird der Bereich von Start bis ende 
im SYSTEM-Band-Format auf Kassette geschrieben. Um dieses 
Band wieder einzulesen» benutzen Sie den SYSTEM-Befehl des 
Colour-Basic und geben Sie den von Ihnen gewählten Programm¬ 
namen an. 


Anmerkung: Für das H und das A-Kommando gilt: 

PHadresse bzw. PAadresse gibt das entsprechende 
Listing parallel auf Bildschirm und Drucker aus. 
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Erklärung des Programms: 


Zeile 10 - 20: 
Zeile 30 - 50: 
Zeile 60-70: 


Zeile 80 - 110: 


Initialisierung: Bildschirm löschen und 
Stringspace vergrößern. 

Kommandoeingabe. Wenn nur <RETURN> gedrückt 
wurde. Eingabe wiederholen. 

Erstes Zeichen der Eingabe lesen. Wenn P, 
Druckerflag (PR) setzen und nächstes Zeichen 
lesen♦ 

Kommando aus heraussuchen und die ent¬ 
sprechende Routine anspringen: 

H = 130 
A = 390 
E = 590 
T = 740 
G = 900 
R = 1040 
W = 1730 


Zeile 

120: 


Falls Zeichen kein zulässiges Kommando, wie¬ 
der zur Eingabe springen. 

Zei l e 

130 - 

380: 

Hex-Dump 

Zeile 

130 - 

140: 

Adresse aus A$ in Z lesen und in X umspei¬ 
chern. 

Zeile 

150 - 

160: 

X in Hexadezimalzahl in Z$ umwandeln. 

Zeile 

170: 


Adresse des ersten der folgenden 8 Bytes 
ausgeben. 

Zeile 

180: 


Falls nötig. Ausgabe zusätzlich auf Drucker. 

Zeile 

190: 


Prüfsumme auf Null initialisieren. 

Zeile 

200 - 

260: 

8 Bytes in hexadezimal auf Bildschirm (und 
auf Druckerm wenn nötig) ausgeben und Prüf¬ 
summe berechnen. 

Zeile 

270 - 

320: 

Prüfsumme ausgeben. 

Zeile 

330: 


Startadresse um 8 erhöhen. 

Zeile 

340: 


KB fragt eine Tastenreihe ab. 

Zeile 

350: 


Wenn <CLEAR> gedrückt, Sprung zur Kommando¬ 
eingabe. 

Zeile 

360: 


Wenn nicht <Leertaste> gedrückt, nächste 
Zeile ausgeben. 

Zeile 

370 - 

380: 

Warten, bis <RETURN> gedrückt, dann nächste 
Zeile ausgeben. 

Zeile 

390 - 

580: 

ASCII-Dump 

Zeile 

390 - 

400: 

Adresse aus A$ in Z lesen und in X umspei¬ 
chern . 

Zeile 

410 - 

440: 

Startadresse der Zeile ausgeben. 

Zeile 

450 - 

500: 

24 ASCII-Zeichen ausgeben. 

Zeile 

510 - 

520: 

Cursor an den Anfang der nächsten Zeile 
bringen. 

Zeile 

530: 


Startadresse um 24 erhöhen. 


Zei l e 

540 - 

580: 

Tastaturabfrage: 

<CLEAR> - Listing abbrechen 
<Leertaste> - Listing anhalten. 

Zeile 

590 - 

730: 

Edit hexadezimal 

Zeile 

590 - 

600: 

Adresse aus A$ in Z lesen und in X umspei¬ 
chern* 

Zeile 

610 - 

630: 

Adresse und Trennstrich ausgeben* 

Zeile 

640 - 

660: 

Bisherigen Inhalt der Speicherstelle X und 
zweiten Trennstrich ausgeben. 

Zeile 

670 - 

680: 

Eingabe in A$ lesen. 

Zeile 

690: 


Wenn nur <RETURN> gedrückt wurde» Eingabe 

abbrechen♦ 

Zei l e 

700 - 

710: 

Das eingegebene Byte in Adresse X ablegen* 
Das Z AND 255 dient dazu» sicherzustellen» 
daß nicht aus Versehen eine Zahl größer als 
255 dez. gePOKEt wird. 

Zeile 

720 - 

730: 

Adresse um 1 erhöhen und Eingabevorgang wie¬ 
derholen . 

Zeile 

740 - 

890: 

Edit ASCII 

Zeile 

740 - 

750: 

Adresse aus A$ in Z lesen und in X umspei¬ 
chern. 

Zeile 

760 - 

780: 

Adresse und ersten Trennstrich ausgeben. 

Zeile 

790 - 

830: 

Inhalt der Speicherstelle X in hexadezimal 
und als ASCII-Zeichen ausgeben. 

Zeile 

840 - 

850: 

Eingabe in A$ lesen. 

Zeile 

860: 


Wenn nur <RETURN> gedrückt» Eingabe ab¬ 
brechen. 

Zeile 

870: 


ASCII-Wert des eingegebenen Zeichens in X 
ablegen. 

Zeile 

880: 


Adresse um 1 erhöhen. 

Zeile 

890: 


Eingabevorgang wiederholen. 

Zeile 

900 - 

1030: 

Go to memory 

Zeile 

900: 


Sprungadresse aus A$ in Z lesen. 

Zeile 

910 - 

920: 

ZI = höherwertiges Byte von Z. 

Z2 = niederwertiges Byte von Z. 

Zeile 

930 - 

940: 

USR-Sprungadresse fest legen. 

Zeile 

950 - 

970: 

Alle Leerzeichen am Anfang von A$ wegstrei¬ 




chen. 

Zeile 

980 - 

990: 

Zu übergebendes Byte aus A$ in Z lesen. 

Zeile 

1000: 


Programm starten. Das Argument in Z überge¬ 
ben und das Ergebnis des Programms wieder in 
Z abspeichern. 

Zeile 

1010 - 

■ 1020 

: Ergebnis in hexadezimal ausgeben. 

Zeile 

1030: 


Sprung zur Kommandoeingabe. 
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Zeile 

1040 - 

1410: 

Hexadezimalrechnung 

Zeile 

1040: 


Zahl aus in Z lesen. 

Zeile 

1050: 


Aus einer vorzeichenbehafteten Zahl in Z 
eine positive Zahl in XI machen. 

C -32768 < = Z <= 32767: 0 <= XI <= 65535 ) 

Zeile 

1060 - 

1080: 

Alle Leerzeichen am Anfang von A$ löschen. 

Zeile 

1090: 


Zahl aus AS in Z lesen. 

Zei l e 

1100: 


Aus einer vorzeichenbehafteten Zahl in Z 

eine positive Zahl in X2 machen Csiehe 

1050). 

Zeile 

1110: 


Kopfzeile der Tabelle ausgeben. 

Zei l e 

1120 - 

1260: 

XI. X2. XI + X2 und XI - X2 in hexadezimal 

ausgeben. 

Zeile 

1270 - 

1400: 

XI. X2» XI + X2 und XI - X2 in dezimal 

ausgeben. 

Zeile 

1410: 


Sprung zur Kommandoeingabe 

Zeile 

1420 - 

1450: 

Zahl in Z in Dezimalstring umwandeln. zi 




enthält Zahl rechtsbündig. 

Zeile 

1420: 


Z$ = Zahl aus Z in Stringform. 

Zeile 

1430: 


Vorzeichen aus Z$ entfernen. 

Zei l e 

1440: 


Falls nötig. Z$ mit Leerzeichen auf 5 Zei¬ 
chen auffüllen. 

Zeile 

1450: 


Rückkehr zum aufrufenden Programm. 

Zeile 

1460 - 

1500: 

Das erste Zeichen aus Ai in Bi übertragen 




und Ai um ein Zeichen kürzen. 

Zeile 

1460: 


B$ löschen. 

Zeile 

1470: 


Falls A$ leer ist. sofort zurückspringen. 

Zeile 

1480: 


Das erste Zeichen von Ai in Bi speichern. 

Zei l e 

1490: 


A$ um ein Zeichen kürzen. 

Zeile 

1500: 


Rücksprung. 

Zeile 

1510 - 

1590: 

Hexadezimalzahl aus Ai in Z lesen. 

Zeile 

1510: 


Z zunächst löschen. 

Zeile 

1520: 


Ein Zeichen aus Ai lesen. 

Zeile 

1530 - 

1540: 

Falls das Zeichen keine zulässige Hexziffer 
ist (0-9 oder A - F ). Ende der Hexadezi 

malzahl. 

Zei l e 

1550: 


Hexadezimalziffer in Bi umwandeln in Dezi¬ 
malzahl in ZI. 

Zeile 

1560: 


Z entsprechend erhöhen. 

Zeile 

1570: 


Schleife wiederholen. 

Zeile 

1580: 


Falls Z größer als 32767 ist. muß es eine 
negative Zahl sein (damit PEEK und P0KE 

funktioniert). 

Zeile 

1590: 


Rücksprung. 



Zeile 1600 

Zeile 1600: 

Zeile 1610: 
Zeile 1620: 
Zeile 1630: 
Zeile 1640 
Zeile 1660 
Zeile 1680 
Zeile 1700: 
Zeile 1710: 

Zeile 1720: 


Zahl in Z in hexadezimal umwandeln und in 
zj ablegen» 

Falls Z größer als 32767 ist, muß es eine 
negative Zahl sein. 

ZI = höherwertiges Byte von Z. 

Z2 = niederwertiges Byte von Z. 

als leer initialisieren. 

Höchstwertige Ziffer erzeugen. 

Zweite Ziffer erzeugen. 

Dritte Ziffer erzeugen. 

Letzte Ziffer erzeugen. 

Zahl in Z3 in hexadezimale Ziffer umwandeln 
und an Z$ anhängen. 

Rücksprung. 


Zeile 1730 - 2080: Mrite SYSTEM-Tape 

Zeile 1730 - 1780: Maschinenprogramm in WR$ einiesen. 

Zeile 1790: X zeigt auf Eintrag der Variable WR$. 

In X steht die Länge des Strings. 

In X+l steht das niederwertige Byte der 
Adresse, bei der der String im Speicher 
beginnt. 

In X+2 steht das höherwertige Byte der 
Adresse, bei der der String im Speicher 
beginnt. 

Zeile 1800: X * Adresse, bei der der Stringtext im Spei¬ 

cher beginnt, 

Zeile 1810: Adresse in X für PEEK und POKE anpassen. 

Zeile 1820: R = Adresse eines Unterprogramms innerhalb 

des Maschinenprogramms. (Genauere Erläute¬ 
rungen zu diesem Programm siehe nächstes Ka¬ 
pitel ) 

Zeile 1830: RI ■ höherwertiges Byte von R. 

Zeile 1840: R2 * niederwertiges Byte von R. 

Zeile 1850 - 1880: Unterprogrammadresse in Programm POKEn. 

Zeile 1890 - 1930: Start-, End- und Einsprungadresse einiesen 

und in die ersten sechs Bytes des Maschinen¬ 
programms POKEn. 

Zeile 1940 - 1950: Programmnamen in PN$ einiesen. 

Zeile 1960 - 1980: Byte Nr. 6 bis Byte Nr. 11 des Maschinenpro¬ 
gramms mit Leerzeichen füllen. 

Zeile 1990 - 2010: Den Programmnamen in die Bytes 6 bis maximal 
11 des Maschinenprogramms POKEn. 

Zeile 2020 - 2060: Startadresse des Programms für USR-Aufruf 
POKEn. 


Zeile 2070: Maschinenprogramm aufrufen. 

Zeile 2080: Zur Kommandoeingabe springen. 


56 




Zeile 2090 - 2130: Das Maschinenprogramm für Write Tape« 

Zeile 2090 - 2120: Das eigentliche Programm. 

Zeile 2130: Das Unterprogramm zum Schreiben eines Daten 

blocks. 


Zeile 2140 - 


Zeile 2140: 
Zeile 2150: 
Zeile 2160: 
Zeile 2170: 
Zeile 2180: 
Zeile 2190: 
Zeile 2200: 


2200: Eine Zahl aus lesen und in X und X+l 
POKEn. 

Eine Zahl aus R$ in Z lesen. 

ZI = höherwertiges Byte von Z. 

Z2 = niederwertiges Byte von Z. 

Das niederwertige Byte wird in X gePOKEd. 
Das höherwertige Byte wird in X+l gePOKEd. 
X wird um 2 erhöht. 

Rücksprung. 


Zeile 2210 - 
Zeile 2210: 
Zeile 2220: 

Zeile 2230: 
Zeile 2240: 


2240: ftlle führenden Leerzeichen aus löschen. 
Ein Zeichen aus R$ in B$ lesen. 

Wenn BS ein Leerzeichen enthält, Prozedur 
wiederholen. 

wieder korrigieren. 

Rücksprung. 


Nach der Erläuterung des Basic-Teils des Monitorprogramms hier 
nun noch ein Listing und die Erläuterungen zu dem Maschinenpro 
gramm, das die Bandaufzeichnung macht. 


8404 

2A 

8E 

40 

LD 

HL,C 408EH) 

*. 

8407 

11 

FA 

FF 

LD 

DE,FFFAH 

♦ , 

840A 

19 



ADD 

HL, DE 


840B 

CD 

3F 

02 

CALL 

023FH 

4 ? 

840E 

3E 

55 


LD 

A, 55H 

>U 

8410 

CD 

1F 

02 

CALL 

021 FH 

, 4 

8413 

06 

06 


LD 

B, 06H 

, , 

8415 

7E 



LD 

A,(HL) 


8416 

23 



INC 

HL 

# 

8417 

CD 

1F 

02 

CALL 

021 FH 

, , 

841A 

10 

F9 


D3NZ 

8415H 

, , 

841C 

11 

F4 

FF 

LD 

DE,FFF4H 

. * 

841F 

19 



ADD 

HL, DE 

4 

8420 

E5 



PUSH 

HL 

. 

8421 

DD 

El 


POP 

IX 

, . 

8423 

DD 

5E 

00 

LD 

E,CIX+OOH) 

A 

8426 

DD 

56 

01 

LD 

D,CIX+01H) 

. V 

8429 

DD 

6E 

02 

LD 

L,(IX+02H) 

.n 

842C 

DD 

66 

03 

LD 

H,(IX+03H) 

. f 

842F 

AF 



XOR 

A 

» 

8430 

ED 

52 


SBC 

HL, DE 

. R 

8432 

23 



INC 

HL 

# 

8433 

7C 



LD 

A, H 

* 

8434 

B7 



OR 

A 

» 

8435 

28 

08 


OR 

Z,843FH 

( . 

8437 

06 

00 


LD 

B, OOH 

* * 

8439 

CD 

57 

84 

CALL 

8457H 

.W 

843C 

25 



DEC 

H 

% 

843D 

18 

F4 


OR 

8433H 

4 * 

843F 

7D 



LD 

A,L 

* 

8440 

45 



LD 

B,L 

E 

8441 

B7 



OR 

A 

4 

8442 

C4 

57 

84 

CALL 

NZ,8457H 

,W 

8445 

3E 

78 


LD 

A, 78H 

> X 

8447 

CD 

1F 

02 

CALL 

021 FH 

, . 

844A 

DD 

7E 

04 

LD 

A,(IX+04H) 

, , 

844D 

CD 

1F 

02 

CALL 

021 FH 

* * 

8450 

DD 

7E 

05 

LD 

A,(IX+05H) 

, » 

8453 

CD 

1F 

02 

CALL 

021 FH 

, , 

8456 

C9 



RET 


, 

8457 

3E 

3C 


LD 

A, 3CH 

> < 

8459 

CD 

1F 

02 

CALL 

021 FH 

, , 

845C 

78 



LD 

A, B 

X 

845D 

CD 

1F 

02 

CALL 

021 FH 

, , 

8460 

7B 



LD 

A,E 

ä 

8461 

CD 

1F 

02 

CALL 

021 FH 

, , 

8464 

4F 



LD 

C, A 

0 

8465 

7A 



LD 

A,D 

z 

8466 

CD 

1F 

02 

CALL 

021 FH 

, . 

8469 

81 



ADD 

A, C 


846A 

4F 



LD 

C, A 

0 

846B 

1A 



LD 

A,(DE) 


846C 

13 



INC 

DE 


846D 

CD 

1F 

02 

CALL 

021 FH 

« , 

8470 

81 



ADD 

A, C 


8471 

4F 



LD 

C, A 

0 

8472 

10 

F7 


D3NZ 

846BH 

, « 

8474 

C3 

1F 

02 

OP 

021 FH 

♦ , 
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In dem Listing auf der vorherigen Seite beginnt das Programm 
bei Adresse 8404H. Dies kann jedoch nicht immer so sein, da 
die Strings immer an anderen Stellen abgelegt werden. Dies 
hängt zum Beispiel davon ab, ob Ihr Rechner über 16 oder 32 K 
RAM verfügt, ob obere RAN-Bereich durch Eingabe einer MEM SIZE 
geschützt wurden etc. Hierdurch taucht ein großes Problem auf: 
Das Maschinenprogramm muß zum einen auf Adressen zugreifen, in 
die das Basic-Programm die Start-, End- und Einsprungadresse 
des auf Band zu speichernden Speicherbereichs sowie den Pro¬ 
grammnamen abgelegt hat. Zum anderen wird in dem Programm zwei¬ 
mal ein Unterprogramm aufgerufen. Auch diese Adresse muß korri¬ 
giert werden. Dieses Problem löst schon der Basic-Teil der 
Write SYSTEM Tape Routine. In den Zeilen 1820 bis 1880 wird aus 
der Anfangsadresse des Programms der Anfang des Unterprogramms 
berechnet und an den entsprechenden Stellen im eigentlichen 
Programm abgelegt (in diesem Listing wären dies die Adressen 
843AH und 8443HD. Um die Stellen zu finden, an denen das Basic- 
Programm die nötigen Adressen und den Programmnamen abgelegt 
hat, wird derselbe Trick benutzt, diesmal jedoch vom Maschinen¬ 
programm aus. 

In Adresse 8404 wird das HL-Register mit dem Inhalt der Spei¬ 
cherzellen 408EH/408FH geladen. Diese Speicherzellen enthalten 
die Startadresse der Routine, die mit dem USR-Befehl aufgerufen 
werden soll (kennen Sie sicher: 16526/16527 dez.). In diesem 
Fall würde HL also 8404H enthalten, denn dies ist ja die Start¬ 
adresse des Programms! 

Die nächsten zwei Befehl erniedrigen HL um 6, sodaß es nun auf 
den Beginn des Programmnamens im Speicher zeigt. Nun wird 
zunächst eine ROM-Routine aufgerufen, die einen sogenannten 
Leader auf das Band schreibt. Dieser Leader sorgt dafür, daß 
beim Lesen alle Bytes genauso gefunden werden, wie sie ge¬ 
schrieben wurden (siehe nächstes Kapitel: Format von SYSTEM- 
und CLOAD-Bändern). Die Befehlsfolge LD A,55H; CALL 021FH zei¬ 
chnet das Byte 55H auf Kassette auf. Die Befehle in den Adres¬ 
sen 8413H bis 841BH stellen eine Schleife dar, die den Pro¬ 
grammnamen auf Kassette aufzeichnet. Die Befehle in Adresse 
84ICH bis 842EH laden die Startadresse des Programms in DE und 
die Endadresse in HL. Nun wird die Differenz berechnet und in 
HL abgelegt. Adresse 8433H bis 843EH stellt wieder eine Schlei¬ 
fe dar, in der soviele 256 Byte lange Blöcke vom Speicher auf 
Kassette übertragen werden, wie durch die Programmlänge angege¬ 
ben wurden. Dann wird noch (843FH bis 8444H), falls nötig, ein 
kürzerer Block ausgegeben, der die restlichen Bytes enthält. 

Zum Abschluß wird die Einsprungadresse aufgezeichnet und in den 
Basic-Teil des Monitorprogramms zurückgesprungen. 

Das Unterprogramm, das einen Block aufzeichnet, hat folgende 
Form: 

Zunächst wird ein Byte 3CH aufgezeichnet, dann die Blocklänge 
aus dem B-Register. Dann folgen das niederwertige und höherwer¬ 
tige Byte der Startadresse des Blocks, dann alle Datenbytes. 

Zum Schluß wird noch die Prüfsumme ausgegeben (Siehe nächstes 
Kapitel). 
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Das Format von SYSTEM-Bändern: 

Ein Band, das mit dem SYSTEM-Befehl eingelesen werden soll, muß 
folgendes Format haben: 

1, Leader Dieser Leader besteht aus 256 Bytes RRH und 

einem Byte 66H. Der Sinn dieses Leaders ist 
folgender: 

Jedes Byte wird bitweise auf Kassette aufge¬ 
zeichnet. Es ist also wichtig, das der Rechner 
an der richtigen Stelle anfängt, zu lesen, um 
die richtigen Bits zu einem Byte zusammenzu¬ 
fassen. Dabei hilft der Leader. Der Rechner 
liest immer ein Bit vom Band und schiebt es 
durch das R-Register. Solange die Bytes RRH 
gelesen werden, enthält das R-Register 
entweder RRH oder 55H, aber nie 66H. In dem 
Moment, in dem das R-Register 66H enthält, 
weiß der Rechner, daß er die Bits nun richtig 
in Gruppen zusammenfassen Kann. 

2. Ein Byte 55H: Dieses Byte dient als Kennung für SYSTEM-Bän- 
der. 

Die nächsten 6 Bytes geben den Programmnamen 
an. Falls dieser Kürzer als 6 Zeichen ist, so 
sind die letzten Zeichen Leerzeichen. 

4. BlocKKennung: Rls nächstes Byte folgt die sogenannte Bloch- 

Kennung. Ein Byte 3CH gibt an, daß nun ein Da¬ 
tenbloch folgt, ein Byte 78H gibt an, daß nun 
die Einsprungadresse des Programms folgt. Rlle 
anderen Bytes werden ignoriert und es wird 
weiter nach 3CH oder 78H gesucht. 

5. DatenblocKs: Das erste Byte in einem Bloch gibt die Rnzahl 

von Datenbytes an, die dieser Bloch enthält. 
00H entspricht dabei 256 dez. 

Das zweite und dritte Byte bilden die Rdresse, 
ab der die Datenbytes im Speicher abgelegt 
werden sollen. 

Dann folgen die Datenbytes und zum Schluß noch 
ein Byte, die Chechsum. 

Diese Chechsum ist das niederwertige Byte der 
Summe aller Datenbytes plus das höher- und 
niederwertige Byte der Ladeadresse. 

6. Einsprung: Nach dem Byte 78H folgen das niederwertige und 

das höherwertige Byte der Einsprungadresse des 
Programms. 


3. Der Programm¬ 
name 


Das Format von CLOAD-Bändern 


Bändern, die mit dem CLOAD-Befehl geladen werden sollen, müssen 
folgendes Format haben: 

1, Leader 

2. Drei Bytes D3H 

3. 1 Byte für den Programmnamen 

4, Der Programmtext, wie er im Speicher steht, Ende, wenn Link 
0000H erreicht. 

Wichtig ist, daß der CLOAD-Befehl kein Prüfsummen akzeptiert 
und also das Gelesene in keiner Weise auf Richtigkeit über¬ 
prüft . 






Die Begriffe "LSB” und "MSB" 

Wir gehen davon aus, daß Ihnen die Begriffe Bit, Byte und 
Hexadezimalsystem vertraut sind. Sollte dies jedoch nicht der 
Fall sein, lesen Sie vorab Kapitel 31 des Handbuches 
"COLOUR BASIC - leicht gelernt”. 

Was bedeuten nun die Abkürzungen LSB und MSB ? 

LSB ist die englische Abkürzung für "Lower Significant Byte”, 
was soviel bedeutet wie niederwertiges Byte. 

Entsprechend ist MSB die Abkürzung von ”More Significant Byte”, 
und bedeutet höherwertiges Byte. 

LSB und MSB bilden zusammen eine 16-Bit Adresse mit der alle 
Speicheradressen angesprochen werden können. 

64 K-Byte sind genau 65536 Byte die mit Adressen»zwischen 
0000H und FFFFH (0 bis 65535) angesprochen werden. 

Wenn man z.B. Adresse 44E2H ansprechen will, so ist das MSB=44H 
und das LSB=E2H. 

Die dezimale Schreibweise ergibt sich aus: 

44H = 68 dez. und E2H * 226 dez., also 68*256+226 = 17634. 

Man multipliziert also das MSB mit 256 und addiert das LSB 
hinzu. 

In der Z-80 Maschinensprache werden die beiden Adreßbytes in 
der Reihenfolge LSB/MSB abgearbeitet. Also z.B. OP 0066H muß 
als C3 66 00 eingegeben werden. 

Der Basic-Interpreter verhält sich beim Gebrauch von Adressen 
und Variablen genauso (siehe auch "Links” und "Zeilennummern” 
im folgenden Kapitel). 
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Ulie werden Basicprogramie abgespeichert ? 


Sie kennen natürlich den Basic-Befehl "LIST”. Dieser Befehl 
zeigt Ihnen in klar lesbarer Form das Basicprogramm an, 
das im Speicher steht. 

Wie aber "merkt" sich der Computer das Programm intern - 
so wie Sie es auf dem Bildschirm sehen oder etwa anders? 

Und woher weiß das Colour-Genie, wo es das Programm abspeichern 
sol l? 

Diesen Fragenkomplex wollen wir nun klären, firn Ende finden Sie 
dann eine interessante Anwendung. 

1. Die Basicprogramm-Anfangsadresse: 

In den beiden Speicherzellen 40A4H und 40A5H (16548 und 
16549 dez.) steht die Adresse, bei der das Basicprogramm 
im Speicher beginnt. 

Haben Sie beim Einschalten nicht <MOD SEL> niedergehalten, 
beginnt das Basicprogramm bei 5801H (22529 dez.). 

Dies läßt sich einfach überprüfen: 

READY 

>PRINT PEEK(&H40A4)+256*PEEK(&H40A5) 

22529 

READY 

>PRINT &H5801 
22529 
READY 
> 

Wenn Sie beim Einschalten die <MOD SEL>-Taste gedrückt 
haben, d.h. wenn der Speicher von 4800H (18432 dez.) bis 
57FFH (22527 dez.) nicht für die hochauflösende Grafik 
verwendet werden soll, beginnt das Basicprogramm bei 
Adresse 4801H (18433 dez.). 

Auch dies läßt sich leicht überprüfen: 

READY 

> PRINT ( PEEK(&H40A4)+256*PEEK( &H40A5) ) =&H4801 
-1 

(Die -1 bedeutet, daß obige logische Aussage wahr ist.) 

2. Die Speicherung eines Basicprogramms: 

Wir wissen nun, ab welcher Adresse ein Basicprogramm im 
Speicher beginnt. 

Die Frage ist nun: Wie wird das Programm dort gespeichert. 

Um dies zu untersuchen, laden Sie den "Basic-Monitor", 
den weiter vorne aufgelistet finden, und den Sie auf ein 
Band gespeichert haben sollten. Wenn Sie dies noch nicht 
getan haben, holen Sie dies jetzt nach. 

Wir wollen nun mit dem "Basic-Monitor" untersuchen, wie 
der Monitor selbst abgespeichert wird. 


Wenn Sie beim Einschalten nicht <MOD SEL> gedrückt hatten, 
beginnt das Programm im Speicher bei Adresse 5801H. 

Starten Sie nun den "Basic-Monitor” mit "RUN". 

Geben Sie dann "H5801" ein - der Monitor macht nun ein 
hexadezimales Listing. Brechen Sie dieses nach der 7. Zeile 
mit <CLEAR> ab. Anschließend können Sie noch ein ASCII- 
Listing dieses Speicherbereiches machen. Dazu geben Sie 
das Kommando "A5801" ein. Dieses Listing können Sie nach der 
3. Zeile ebenfalls mit <CLEAR> abbrechen. Ihr Bildschirm 
sieht dann etwa so aus (Die Linien sind nachträglich zur 
Orientierung eingezeichnet; darunter sind hier noch die 
ersten vier Zeilen des "Basic-Monitors" zum Vergleich 
aufgelistet) : 
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10 CLS 

20 CLEAR 1000 
30 PRINT"Command"; 
40 INPUT A$ 


Jede Basiczeile hat im Speicher nun folgendes Format: 

1. 2 Bytes, die die Anfangsadresse der nächsten Zeile 
angeben. ("Link") 

2. 2 Bytes, die die Zeilennummer in hexadezimal enthalten. 

3. Der Text der Zeile, wobei alle Befehle in sogenannte 
"Tokens" verschlüsselt werden. D.h., daß ein Befehl 
nicht als Zeichenfolge gespeichert wird, sondern als 
ein oder zwei Bytes. Eine Liste dieser Tokens mit den 
zugehörigen Befehlen finden Sie in Anhang A. 

Alles, was kein Befehl ist, wird in normaler Textform 
abgespeichert. 

4. Ein Byte 00H als Zeilen-End-Kennung. 

Das Programmende ist durch einen Link markiert, der 00 00 
ist. 

Dies klingt alles recht kompliziert, aber anhand des oben 
ausgedruckten Beispiels wollen wir Ihnen das Prinzip 
nun verdeutlichen. 







Sehen wir uns zuerst einmal die erste Basic Zeile an 
10 CLS 


Im Speicher 
5801: 07 58 


5803: OB 00 
5805: 84 


5806: 00 


steht: 

Dies ist der Link, d.h. die nächste Zeile 
beginnt bei Adresse 5807H. 

Beachten Sie, daß die Adresse 5807H, wie 
üblich, als 07 58 gespeichert (siehe voriges 
Kapitel LSB/MSB). 

Dies ist die Zeilennummer: 000AH = 10 dez. 
Dies ist das Token für den Befehl CLS, 
wie Sie anhand Anhang A und Anhang B leicht 
überprüfen können. (84H = 132 dez.) 

Ende der Zeile 


Genauso läßt sich die zweite Programmzeile untersuchen: 
20 CLEAR 1000 


Im Speicher 

5807: 

12 

58 

5809: 

14 

00 

580B: 

B8 


580C : 

20 

31 

5811: 

00 



steht: 

Die nächste Zeile beginnt bei Adresse 
Zeilennummer: 0014H = 20 dez. 

Token für CLEAR CB8H = 184 dez.). 

30 30 30 ASCII-Text # 1000'. 

Zeilenende. 


5812H. 


Analog dazu können Sie auch die zwei nächsten Zeilen 
erkennen, sowie natürlich jede andere Basic-Zeile auch. 

Wie Sie Anhang A entnehmen können, sind die Dezimalwerte 
aller Tokens größer als 127, d.h. ein Token ist durch ein 
gesetztes Bit Nummer 7 gekennzeichnet (Im Gegensatz zu den 
ASCII-Zeichen, die alle einen Wert kleiner als 128 haben - 
vergleiche dazu Anhang B). 

Daraus ergibt sich, daß mit einem Byte nur maximal 128 
Befehle codiert werden können, da das 7. Bit ja immer 
gesetzt sein muß. Beim großen Befehlssatz des Colour-Genies 
reichte dies jedoch nicht aus. Aus diesem Grunde wurde für 
eine Reihe von Befehlen eine Codierung mit zwei Bytes 
gewählt, wobei das erste Byte immer FFH (255 dez.) ist. 

Der Befehl PLOT hat z.B. das Doppeltoken FFH 84H (255 dez. 
132 dez.). 

In diesem Zusammenhang seien noch drei Besonderheiten 
der Abspeicherung erwähnt: 

1. Beim Befehl ELSE wird intern vor dem ELSE noch ein 
Doppelpunkt abgespeichert, der beim LISTen aber nicht 
ausgegeben wird. 

2. Der Befehl FCOLOUR wird durch 3 Bytes ausgedrückt: 

FFH 81H 52H (255 dez. 129 dez. 82 dez.) 

3. Die Kurzform des REM-Befehls (') wird auf folgende Weise 
abgespeichert: 

3AH 93H FBH (58 dez. 147 dez. 251 dez.) 
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Als letztes wollen wir nun eine interessante Anwendung für 
das in diesem Kapitel Erklärte bringen. 

Es kommt öfters vor, daß man in einem Basicprogramm Teile 
des Programms selbst ändern möchte. Dies ist nicht ohne 
weiteres möglich - normalerweise muß man die entsprechende 
Zeile erst eingeben bzw. editieren und muß dann das Programm 
neu starten. 

Wenn man allerdings weiß, wie Basicprogramme abgespeichert 
werden, kann man das Programm von sich aus ändern. 

Ein wesentlicher Vorteil neben dem Eingabe-Komfort ist, daß 
bei dieser Methode keine Variablenwerte gelöscht werden. 
Folgendes Programm ist nun ein Beispiel für dieses Verfahren. 
Das Programm fragt nach einer mathematischen Funktion. Diese 
geben Sie ganz normal ein und sie wird dann in das Programm 
"gePOKEd". Anschließend werden noch Unter- u. Obergrenze, sowie 
die Schrittweite abgefragt. Das Programm berechnet dann eine 
Wertetabelle für die Funktion. 

Natürlich gibt es eine Menge anderer Anwendungen - lassen Sie 
mal Ihre Phantasie spielen ! 

Wichtig kann die Kenntnis des Abspeicherverfahrens auch sein, 
wenn man ein kaputtes Basicprogramm, in dem z.B. falsche 
Zeilennummern Vorkommen, reparieren will. 


Programmlisting: 

10 CLEAR500:DEFINTA-V:CLS 
20 Y=SINCX):RETURN:REM 


G0T030 


Y = 


*F$ 


70 

80 


30 INPUT"Funktion: 

40 F$="Y="+F$ 

50 T$="" 

60 PRINT§40, FS;CHR$ C 30):X=6040:T=205 

IFX=6095THEN130ELSERS=CHRSC PEEK(X)AND127):X=X+1 
IFPEEK(X)>127THEN100 
90 RS=RS+CHRS C PEEKCX)):X=X+1:G0T080 
100 IFLENC FS)<LENCR$)THENT=T+1:G0T070 
110 IFLEFTS(F$,LENCRS))< >RSTHENT=T+1:G0T070 

120 TS=TS+CHRS(T):FS^RIGHTSCFS,LENCFS)-LENCRS)):IFFS<>""THEN60ELSE140 
130 T$=T$+LEFT$C FS, 1):FS»RIGHTS(FS,LENCFS) -1) :IFF$<>""THEN60 
140 PRINTS40,;:TS=TS+":"+CHRSC146)+":"+CHRSC147) 

150 X» PEEK C 8tH40A4) +256*PEEKC &H40A5) 

160 X1»PEEKCX)+256*PEEKCX+1) 

170 IF PEE K C X1+2)+256*PEEKCX1+3)<>20THENX»X1;GOTO160 
180 XI=Xl+4 

190 F0RX=1T0LENC TS):P0KEX1,ASCCMIDSCTS,X,1)):X1=X1+1:NEXTX 
200 0NERR0RG0T0210:G0SUB20:0NERR0RG0T00:G0T0230 

210 IFERR»50RERR»11THEN230ELSEC0L0UR3:PRINT"Fehlerhafte Funktion":CALL 
357C:C0L0UR2 

220 IFINKEYS»~"THEN220ELSERUN 

230 INPUT"Untergrenze";XU 

240 INPUT"0bergrenze";X0 

250 IFXU> »X0THEN230 

260 INPUT"Schrittweite";XS 

270 IFXS< »0THEN230 

280 F0RX*XUT0X0STEPXS 

290 G0SUB20:PRINT"FC "; X;" ) *";Y 

300 IFINKEYS = ""THEN300ELSENEXTX 

310 IFINKEYS=""THEN310ELSERUN 
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Erklärung des Programms 


Zeile 


Zeile 


Zeile 

Zeile 

Zeile 

Zeile 


Zeile 


Zeile 


Zeile 

Zei l e 

Zeile 

Zeile 

Zeile 

Zeile 

Zeile 

Zeile 


10 : Genug Platz für Strings schaffen, zur Beschleunigung 
des Programmablaufs alle nicht benutzten Variablen 
als Integer erklären, den Bildschirm löschen und das 
eigentliche Programm starten. 

20 : In dieser Zeile soll die Funktion als Unterprogramm 
abgelegt werden. Die ':' halten den Platz für län¬ 
gere Funktionen frei. Das Unterprogramm besteht 
immer aus der Berechnung eines Wertes Y aus einer 
Funktion von X. Das REM verhindert, daß etwaige 
Reste längerer Funktionen zu einem SYNTAX Error 
führen. 

30 : Die Funktion wird in F$ eingelesen. 

40 : Der erste Teil des Unterprogramms ist Y=fCX). 

50 : In T$ wird die codierte Zeile generiert. 

60 : Den noch zu codierenden Rest der Funktion ausgeben, 

X zeigt auf den Anfang einer Tabelle im ROM, in der 
sämtliche BASIC-Schlüsselworte stehen Cdiese Tabelle 
beginnt bei 1650H, in diesem Fall wurde jedoch erst 
bei den arithmetischen SchlüsselWorten begonnen). T 
entspricht dem Token des momentanen Schlüsselwortes. 

70 : Wenn X = 6095, dann ist das Ende der arithmetischen 
Schlüsselworte erreicht, also wurde kein passendes 
gefunden. Weiter Verarbeitung in Zeile 130. 

70 CRest) - Zeile 90 : 

Das momentane Schlüsselwort wird in R$ eingelesen. 
Der erste Buchstabe des nächsten Schlüsselwortes ist 
durch ein gesetztes Bit 7 gekennzeichnet, wenn ein 
solches Zeichen gefunden wird, enthält R$ das kom¬ 
plette Schlüsselwort. 

100: Wenn der noch zu codierende Rest der Funktion kürzer 
als das gefundene Schlüsselwort ist, kann es nicht 
passen. Nächstes Schlüsselwort versuchen! 

110: Falls der Rest der Funktion das Schlüsselwort nicht 
enthält, nächstes Wort versuchen! 

120: Passendes Wort gefunden. Token an T$ anhängen, F$ 
entsprechend kürzen. Wenn FS noch nicht leer ist, 
weitermachen, sonst ist die Codierung beendet. 

130: Diese Zeile wird angesprungen, wenn kein Token 

passt. Ein Zeichen aus F$ wird in T$ übertragen, F$ 
wird gekürzt. Wenn F$ noch nicht leer ist, weiter¬ 
machen, sonst ist die Codierung beendet. 

140: An T$ wird noch der Code für # :RETURN:REM' ange¬ 
hängt, um die Basic-Zeile zu komplettieren. 

150: X zeigt auf die erste Programmzeile. 

160 - Zeile 170: 

Zeile 20 wird im Programm gesucht. Die Anfangs¬ 
adresse steht dann in XI. 

180: Link und Zeilennummer werden übersprungen. 



Zeile 190: T$ wird in Zeile 20 kopiert. 

Zeile 200 - Zeile 220 : 

Zeile 20 wird auf Fehler getestet. Die Zeile wird 
ausgeführt CGOSUB 20). Wenn kein Fehler auftaucht, 
wird zu Zeile 230 gesprungen, vorher jedoch noch die 
Fehlerabfrage abgestellt C0N ERROR GOTO 0:G0T0 230). 
Wenn ein Fehler auftaucht, so darf dies nur der 
FC-Error (Fehlercode 5) oder der /0-Error (Fehler¬ 
code 11) sein, sonst ist die Funktion fehlerhaft. 

Zeile 230: In XU wird die Untergrenze eingelesen. 

Zeile 240: In X0 wird die Obergrenze eingelesen. 

Zeile 250: Falls die Untergrenze größer oder gleich der 
Obergrenze ist, wird die Eingabe wiederholt. 

Zeile 260: In XS wird die Schrittweite eingelesen. 

Zeile 270: Falls die Schrittweite kleiner oder gleich Null ist, 
wird die Eingabe wiederholt. 

Zeile 280: Schleife von XU bis XO mit der Schrittweite XS. 

Zeile 290: Aus X einen Y Wert berechnen und ausgeben. 

Zeile 300: Auf einen Tastendruck warten, dann nächsten Wert 
berechnen und ausgeben. 

Zeile 310: Nach Beendigung der Schleife auf Tastendruck warten, 
dann Programm neu starten. 
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Wie werden Basic-Variablen abgespeichert? 


Die Basic-Variablen werden in zwei Untergruppen aufgeteilt, 
nämlich: 

- die normalen Variablen C z.B. A = 0 ) und die 

- Feldvariablen ( z.B. Dili A( 100) ) 


Die normalen Variablen werden direkt hinter dem Basic-Programm 
abgelegt (dies ist auch der Grund, weshalb nach jeder Verände¬ 
rung des Programms alle Variablen gelöscht sind, denn das 
Programm kann ja dadurch seine Länge verändern). Die Anfangs¬ 
adresse dieses Speicherbereichs (und damit natürlich auch die 
Endadresse Ihres Basicprogramms) steht in den Speicherzellen 
40F9H/40FAH (16633/16634 dez.). In diesem Speicherbereich ste¬ 
hen die einzelnen Variablen nun einfach hintereinander, und 
zwar in folgendem Format: 

1 Byte Typcode Dieses Byte ist so gewählt, daß es auch die 

Länge des Datenfeldes der Variable angibt: 
02 = Integer 
03 = String 

04 * einfache Genauigkeit 
08 = doppelte Genauigkeit 

2 Bytes Name Der Name wird umgekehrt abgespeichert, das 

heißt, die Variable Al heißt im Speicher 1A 
Einbuchstabige Variablen wie A, B u.ä. wer¬ 
den mit einem Byte 00H an erster Stelle 
abgespeichert (z.B. 00H 41H = Variable A). 
Der Sinn dieser Methode ist, daß in jedem 
Fall ein Kennbuchstabe direkt vor dem Daten 
feld steht, dies erleichert den Vorgang des 
Suchens nach einer bestimmten Variable. 


2-8 Bytes Je nach Typ folgen nun die der Variable zu- 

Datenfeld geordneten Daten: 

Integer 

Der Wert in LSB/MSB Format. 

Strings 

Das erste Byte gibt die Länge des Strings 
an, die beiden anderen, wo der String im 
Speicher beginnt. 







Einfache Genauigkeit 

Die ersten drei Bytes enthalten die Mantis¬ 
se» das vierte Byte den Exponenten. Die Man¬ 
tisse ist folgendermaßen strukturiert: 

Das 3. Byte ist das höchstwertigste, dann 
folgt das zweite und das erste Byte ist das 
niederwertigste. Diese drei Bytes zusammen 
ergeben eine 24-bit Zahl, wobei das höchste 
Bit das Vorzeichen der Mantisse angibt 
C 0 = positiv ). Das höchste Bit des Expo¬ 
nenten gibt an, ob der Binärpunkt nach 
rechts oder nach links verschoben wird 
( 0 * rechts ), die restlichen sieben Bits 
geben an, um wieviele Stellen der Punkt ver¬ 
schoben wird. 

Doppelte Genauigkeit 

Die Struktur entspricht genau der oben ge¬ 
schilderten, doch die Mantisse ist insgesamt 
56 Bits lang. 


Nach der Variablentabelle folgt der Speicherbereich, in dem die 
Felder abgelegt werden. Der Beginn dieses Bereiches steht in 
den Adressen 40FBH/40FCH (16635/16636 dez.). Der Eintrag für 
ein Feld sieht nun folgendermaßen aus: 


1 Byte Typcode Wie bei Variablen: 

02 = Integer 
03 = String 

04 = Einfache Genauigkeit 
08 = Doppelte Genauigkeit 

2 Bytes Name Die Abspeicherung des Namens entspricht der 

bei normalen Variablen. 


2 Bytes Länge 


1 Byte 
Dimension 


Die folgenden zwei Bytes geben an, wieviel 
Speicherplatz das Feld benötigt. Wenn man zu 
der Adresse, in der das erste dieser beiden 
Bytes steht, diese Länge + 2 addiert, erhält 
man die Adresse, bei der das nächste Feld im 
Speicher beginnt. 

Dieses Byte gibt an, wieviele Dimension das 
Feld hat. 
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n * 2 Bytes 
Dimension 


Datenfeld 


Nun folgt für jede Dimension deren Länge* Da 
jede Dimension von 0 bis zum maximalen Index 
angesprochen werden Kann, steht hier der 
maximale Index + 1* 

Schließlich folgen die Daten» die das Feld 
enthält* Ihr Format entspricht dem der Daten 
von normalen Variablen. 

Die Daten sind folgendermaßen sortiert: 

Gehen wir von dem Feld A(2,l) aus. Dann 
steht im Speicher: 

ACO.O); AC1,0): AC2,0): AC0,1): AC 1,1) : 
AC2,1) 


Das Ende des Speicherbereichs, in dem die Felder abgelegt wer¬ 
den und somit der Beginn des freien Speichers steht in den 
Adressen 40FDH/40FEH (16637/16638 dez. D 


Zusammenladen von mehreren Basicprogrammen 


Sie kennen sicher das Problem, daß man zwei Basicprogramme an¬ 
einanderhängen möchte, ohne einen der beiden Teile neu eintip¬ 
pen zu müssen. 

Abhilfe schafft folgendes Vorgehen: 

1. Das Basicprogramm mit den kleinsten Zeilennummern mit CLOAD 
laden. 

2. Eventuell Programm ändern... 

3. Folgende Zeile eingeben (ohne Zeilennummer!): 

A=PEEK(&H40F9)+256*PEEK( &H40FA):A = A-2:P0KE8tH40A4,A-INT(A/256 
)*256:P0KE&H40A5,INT C A/256) 

(Zur Erklärung der Adressen 40F9H/40FAH siehe Kapitel: 

"Wie werden Variablen abgespeichert?" ) 

4. Nächstes Basicprogramm mit CLOAD laden. Wichtig ist, daß 
dieses Programm keine Zeilennummer enthält, die kleiner oder 
gleich der höchsten Zeilennummer ist, das als letztes gela¬ 
den wurde. 

5. Schritte 2 bis 4 sooft wiederholen, bis alle TeilProgramme 
einmal geladen wurden. 

6. Folgende Zeile eingeben (ohne Zeilennummer!): 

P0KE&H40A4,1:P0KE&H40A5,88 

7. Nun sind alle Programme vorhanden und Sie können mit Ihnen 
arbeiten. 

Bitte beachten Sie: 

Schritt Nr. 6 gilt nur, wenn Sie beim Einschalten nicht die 
MOD SEL-Taste gedrückt hatten und keine Programme wie den 
Colour-Compiler oder den Colour-Assembler geladen und gestartet 
haben. Dies alles verändert die Startadresse des Basicpro- 
gramms (siehe Kapitel "Wie werden Basicprogramme abgespei¬ 
chert? ")♦ In einem solchen Fall geben Sie vor Schritt 1 fol¬ 
gende Zeile ein (ohne Zeilennummer): 

PRINTPEEK( 8cH40A4) ; PEEK( &H40A5) 

und merken sich die beiden Zahlen, die nun ausgegeben werden. 

In Schritt Nr. 6 tauschen Sie nun die 1 gegen die erste und die 
88 gegen die zweite der beiden Zahlen aus. 
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Reserviert 


Sie hassen doch sicher auch die Situation, daß ein Programm 
Ihnen anzeigt: "Bitte geben Sie bei MEM SIZE? 32000 ein." 

Mit den folgenden Zeilen können Sie in Ihren Basicprogrammen 
eine Speicherobergrenze für das Basic neu fest legen. Sinnvoll 
ist dies, wenn man, kombiniert mit dem Basic, Maschinensprache¬ 
programme verwendet. 

10 CLERR 50 

20 HA-PEEKC 8cH40Bl ) +256*PEEK( 8iH40B2) 

30 HA=32000:'Je nach Bedarf fest legen 
40 H2=INTCHA/256):H1=HA-H2*256 
50 P0KE&H40B1, H1: P0KE8cH40B2, H2 
60 P0KE&H40D6, H1 : P0KE&H40D7, H2 
70 CLEAR50 

80 REM Hier folgt Ihr Basicprogramm 


In Zeile 20 wird die alte Speicherobergrenze gelesen. 

In Zeile 30 wird die neue Speicherobergrenze festgelegt. 

(Hier 32000: Ihren Wünschen entsprechend ändern) 

In Zeile 40 wird die 2-Byte-Integerzahl für die neue Obergrenze 
in zwei einzelne Bytes zerlegt. 

In Zeile 50 und 60 werden diese neuen Werte in die Basicspei- 
cheradresse und Stringvariablenadresse geschrieben. 

Die Zeilen 10 und 70 sind notwendig und dürfen nicht entfernt 
werden. 




Ausgabe der Bytes 0,11 oder 12 an den Drucker 


Das Basic-ROM des Colour-Genie wandelt die Bytes 11 dez. (Top 
of form) und 12 dez. CFormfeed) in eine Folge von 10er (dez.) 
Bytes (Linefeeds) um. 

Das Byte 0 wird überhaupt nicht ausgegeben. 

(Zum Vergleich Können Sie die entsprechende ROM-Routine mit 
einem Disassembler listen: Sie beginnt bei Adresse 04E7H und 
endet bei Adresse 0563H.) 

Das heißt also, daß die Befehle LPRINT CHR$(0), LPRINT CHR$(11) 
und LPRINT CHR$(12) nicht die Werte 0,11 und 12 an den Drucker 
ausgeben! 

Dies kann, je nach angeschlossenem Drucker, zu einigen 
Problemen führen. So kommt es bei der Programmierung von 
hochauflösenden Grafiken über Einzelnadelsteuerung (Bit-Image- 
Grafik) oft zu falschen Ausdrucken. Ferner ist die Tabulator¬ 
programmierung des Druckers oft beschränkt, da Byte 11 (dez.) 
das Steuerzeichen für einen vertikalen Tabulator ist. Eine 
anderes Problem ist z.B., daß man beim Star-Drucker DP 510 die 
Unterstreichung hilfs eines Bytes 00 abschaltet. Alle diese 
Probleme kann man mit folgenden Basic-Zeilen lösen, die mit 
G0SUB 100 aufgerufen werden. Der ASCII-Wert des auszugebenden 
Zeichens steht dabei in Variable X. 

100 SOUND 7,127 : 0UT248.15 : IF (INP(249) AND 239) = 47 THEN 
110 ELSE 100 

110 SOUND 7,127 : SOUND 14,X : SOUND 7,255 : SOUND 15,0 : SOUND 
15,1 : RETURN 

Zeile 100 prüft, ob der Drucker druckbereit ist. In Zeile 
110 wird der Wert X an den Drucker ausgegeben. (Zur Ausgabe 
von Buchstaben vergleiche Anhang B.) 

Natürlich können Sie die Zeilennummern so ändern, daß Sie in 
Ihr Programm passen. Als Anwendungbeispiel für obige Zeilen 
folgt nun ein kleines Programm, daß auf dem STAR-Drucker DP 
510/DP 515 ein kleines Pferd ausdruckt: 



Das Programm finden Sie auf der nächsten Seite aufgelistet. 
Beachten Sie, daß das Programm nur auf dem STAR-Drucker 
DP 510/515 läuft. In den Programmzeilen 260 und 270 finden 
Sie übrigens die oben aufgeführten Ausgabezeilen. 
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50 LPRINTCHR$C27) 

60 DEFINTA-Z 

70 PRINT”Haben Sie etwas Geduld,ich drucke gleich” 

80 FORZ*1T010 

90 LPRINTCHRSC27)”K”CHR$C86)::X=0:G0SUB260 

100 FORC=1T086:RERDX:G0SUB260:NEXT 

110 LPRINTCHRtC27)”0”CHR$C16);:NEXT:LRPINT:END 

120 DRTRO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,7,7,15,15,15,3,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0.0,0,0,0,0,0,0,0,0,0,0,0,0,0 

130 DRTRO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.0.0,0,0,0,0.0,0,0,0,0,0,0, 

0,0,0,0,0,0,64,65,195.255,255,255,255,243,96.0,0,0,0,0,0.0,0,0,0,0.0,0 

,0,0,0,0,0,0,0,0,0,1,1,1,3,3,3,3,7,15,16,0,0,0,0,0,0,0,0 

140 DRTRO,0,0,0,0,0,0,0,0,0,0,0.0,0,0,0.0,0,0,0,0,0,0,0,0,0,0,0,0,0,0. 

0.0,0,0,0,0,0,249,255,255,255.255.255,255,255.15,1,1,1,1,1,0,0,0,0,0,0 

,0,1,7,15.31,63,127,127,255,255,255,255,255,255,255.255,255,255,255,12 

7,7,0,0,0,0,0,0,0 

150 DRTRO,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.1,1,1, 
1,0,0,0,0,0,1,7,31,255,255,255.255,255.255,255.255,255,255,207.207,255 
,79.127,47,63,63,255,255,255,255,255.255,255,255,255,255.254.252,148,2 
12,246,242,254,254,255,255,254,254,12 
160 DRTRO,0,0,0,0 

170 DRTRO,0,0,0.0,0,0,0,0,0,0,3,7,31,28,56.48.51.63,31,31,63,63.127,12 
7,255,255,255,255,255,255,255,255,255,255,255,255.255,255.255,255,255, 
255,255,255,255.255,255,255.255»255,255.255,255,255.255,255,255,255,25 

5.255.255.255.255.255.255.255 

180 DRTR255,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

190 DRTRO,0,0,0,0,0,0,0,1,31,127,255,255,192,0,0.240,254,255,255,255.2 

55.255.255.255.255.255.255.255.255.255.255.255.255.255.255.255.255.255 
,255,255,255,255,255,255,255,255.255,255.255,255,255,255,255,255,255.2 

55.255.255.255.255.255.255.255 

200 DRTR255,255,255,255,247,3,1,0,0,0,0,0.0,0,0,0,0,0,0,0,0,0 

210 DATAO,0,0,0.0,0.7,63,255,255,255.252,192,0.0,0.0,1,255,255.255,255 

,254,252,248,240.192,192.225.255.255,255,254,248,224,0,0,0.0,128,128.1 

28,128,192,192,192,224,224,224,192,192,128,128,128,135,255,255,255,252 

,240,128,128.192,192,192,224 

220 DRTR224,240,240,248,248,252,124,31,15,7,3,1,0,0,0,0,0,0,0,0 

230 DRTRO,0,0,3,31,255,255,255,254,240,128.0,0,0,15,31,127,252,248,240 

,192.0,0,0,0.0,0,32,240,240,248.248,28,30,15,7,3,1,0,0,0,0,0,0,0,0.0,0 

,0,0,0,0.3,63,254,248,224,0,0,0.0,0,0,0,0,0,0.0,0,0,0,0,0,0,0.0,128,19 

2,224,240,112,62,31,7,7,3 

240 DRTRO,0,128,192,192,224,224,192,0,0,0,0,0,15,255,255.128,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,128,192,236,252,126,14,0,0,0.0,0,0,0,0,0,0, 
240,254,254,14,6,0,0.0,0.0,0.0,0,0,0.0.0.0,0,0,0,0,0,0,0,0.0,0,0.0.0,0 
,0,0,0 

250 DRTRO,0,0,0,0,0,0,0,0,0,0.0.0,8,252,252,28.12,4,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.0,0,0, 
0,0.0,0,0,0,0,0,0,0,0,0,0.0,0.0,0,0,0,0,0,0.0,0 
260 S0UND7,127:0UT248, 15:1F CINPC249)AND239)«47THEN270ELSE260 
270 S0UND7,127:SOUND14,X:S0UND7.255:SOUND15.0:SOUND15.1:RETURN 
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Ausgabe von Tabulatoren größer als 40 auf den Drucker 


Der Basic-Interpreter Ihres Colour-Genie ist so aufgebaut» daß 
Sie an jeder Stelle einer Bildschirmzeile eine Tabulatormarke 
setzen können. 

Analog dazu behandelt der Interpreter den Drucker, 

Beachten Sie aber: 

Eine Bildschirmzeile hat 40 Zeichen. Daher ist das Setzen einer 
Tabulatormarke auf eine Position > 39 mit dem TAB-Befehl auch 
auf dem Drucker nicht möglich. Benutzen Sie in solchen Fällen 

statt: 10 LPRINT TABC T):"Text” 

folgendes: 10 LPRINT STRING$CT-PEEKC8tH409B),32);"Text” 

Wie beim TAB-Befehl gilt natürlich auch hier: 

0< = T <= maximale Zeilenlänge - 1. 

Beachten Sie, daß am Anfang eines Programms, in dem diese Me¬ 
thode benutzt wird, ein CLEAR Z stehen muß, wobei Z >* Zeilen¬ 
länge sein muß. Sonst könnte ein OS COut of Stringspace) Error 
auftreten. 
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Interessante ROM-CALL*s 


Im folgenden sind einige nützliche ROM-Routinen aufgelistet und 
kurz erklärt, die dem Programmierer, der Erfahrung in Maschi¬ 
nenspracheprogrammierung hat, viel Arbeit abnehmen können. 

Am besten schaut man sich die Routinen, die beschrieben sind, 
mit dem Disassembler eines Maschinensprache-Monitors an. 

Im übrigen sei erwähnt, daß nur die wichtigsten Routinen auf¬ 
geführt sind, da in nächster Zeit ein komplettes, dokumen¬ 
tiertes ROM-Listing zur Verfügung stehen wird. 

0000H System-Kaltstart 

0008H Basic Syntax-Check. Wird über RST 08 aufgerufen 
Das Byte hinter dem RST 08 Code wird mit (HL) 
verglichen. Wenn ungleich dann ”?SN Error”. 

0018H CP HL,DE . Vergleicht das Doppelregister DE mit HL. 

HL > DE C=0 Z=0 

HL = DE C=0 Z=1 

HL < DE C =1 Z=0 

002BH INCH. Liest einen Tastendruck in Akku. A=0 keine Taste. 

0033H OUTCH. Gibt den Akkuinhalt als Zeichen auf die aktuelle 

Bildschirmposition in 4020H/4021H aus. Zeichen kleiner 
20H werden als Control-Zeichen akzeptiert (Cursor Home, 
Clear to End of Line usw.) und bei Bedarf wird der 
Bildschirminhalt gescrollt. 

003BH PRTCHR. Gibt das Zeichen in A auf den Drucker aus. 

0040H INLINE. Liest ab HL als Bufferadresse (norm. 41E8H) 

maximal B Zeichen von der Tastatur ein. Das letzte 
Zeichen ist ODH (RETURN). Bei BREAK ist das Carryflag 
gesetzt. Bei RET steht HL wieder auf Buffer und B ent¬ 
hält die Zahl der eingegebenen Zeichen. 

0049H Wie INCH, jedoch wird auf Tastendruck gewartet. 

0060H Wartet BC-Registerinhalt * 14.66 }is. 

0066H Basic-Warmstart. Legt den Basic-Stackpointer neu an und 
springt anschließend wieder zum Basic ”>READY”. 

01C9H CLS. Löscht Bildschirm über ICH * Cursor Home und 
1 FH * Clear to End of Frame Codes. 

01D3H RANDOM. Erzeugt neue RND Werte. 



01E4H Läßt das rechte blinken durch XOR OAH . 

OIEDH Read Byte. Ein Byte über Kassettenport in A lesen. 

021FH Write Byte. Akkuinhalt auf Kassettenport schreiben. 

023FH Write Sync♦ 256 * AAH und einmal 66H auf Kassettenport. 

024CH Read Sync. Wartet auf Synchronistation. 

0314H Liest ein Doppelbyte LSB/MSB von Kassette in HL. 

0A7FH CINT. Überträgt die Basicvariable X C4121H/4122H) in 
das HL Registerpaar. 

0A9AH Überträgt HL in die Variable X. CAnm.: X ist eine 

Variable, die vom Basic-Interpreter in den Adressen 
4121H ff. angelegt wird und keine Variable des normalen 
Basic 's ! ! ! ) 

OFAFH LINENR. Gibt HL als dez. Zahl ohne Vorzeichen aus (z.B. 
Zeilennummer). 

1650H ASCII Tabelle der Basic-Tokens. Erstes Byte jeweils mit 
gesetztem Bit 7. Sortiert nach aufsteigenden Tokens. 

1822H Sprungtabelle zu den Tokens. Enthält die Einsprung¬ 
adressen der entsprechenden Routinen als Doppelbytes. 

2B01H Verwandelt Ausdruck ab (HL) in eine Integerzahl in DE. 

Nachher steht HL auf dem ersten Byte nach dem Ausdruck. 
Dient zur Übernahme von Zahlen oder Ausdrücken in 
Maschinensprache. 

2B1BH Verwandelt Ausdruck ab CHL) in eine Zahl < 256 dez. 

Wert steht hinterher im Akku, sonst wie 2B01H. 


2B75H Print String ab CHL). Bei CHL)*0 RET. 

38A9H FGR. Schaltet Bildschirm auf FGR um. 

38B0H LGR. Schaltet auf LGR um. 

38CCH C0L0UR n. Wobei n-1 im Akku stehen muß (0...F). 

38DAH FC0L0UR n. Wobei n-1 im Akku stehen muß (0...3). 

3FBOH CHAR n. Schaltet auf CHAR n. Im Akku muß n-1 stehen. 

d-ü.(d.cn-LL i..iu * • _ "/V- t Lyrc?*:- : \ ■' _ : \•_, / _ , C r *■, / r > - 
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neuer- Ee i ebenso 1 e 


Hoi Sie der- eingebaute Eekchensafe ihres 
Calour—Genie auch schon einmaL gelang¬ 
weilt? Dann geben Sie st« i i dem “Basic — 
rinni tor" ader- einem anderen Clan i iar das 
nachfolgende Hbk-L isting ein (Die Pruef— 
summen am Ende jeder Beile werden nicht 
mit eingegeben). Bewor Sie jedoch den 
Hon i tor laden* muessen Sie bei HER S l EE 
den Wert 3lS3b eingeben* um das Programm 
eu schuetsen. nachdem Sie das Programm 
eingegeben und alle Pruefsummen vergli¬ 
chen haben* schreiben Sie alles mit dem 
U-Befehl auf Kassette= U1CCE "2FFF “JEDE. 
Dann koennen Sie das Eeiebensotsprogramm 
mit G3CDE störten. Huri werden alle BSC l l 
Eeichen in der neuen Sehrif t ausgegeben. 
Da die neue Schrift mit den definierba¬ 
ren Eeichen ereeugt wird* duer-fen Sie 
nur die Eeichen lEB bis ISS umdefinieren 
und muessen immer auf CHRP l bleiben. 

Den normalen Bei ebensof_e koennen Sie 
weiterhin darstellen* indem Sie den Uert 
des Eeichens in den Bildschirm PDKEn. 


Erklärung der Funktionsweise des Programms 

Nach dem im folgenden abgedruckten Hex-Listing des Programmes» 
finden Sie ein disassembliertes Listing der Routine, die den 
neuen Zeichensatz initialisiert. 

Bei 7CD2H werden HL,DE und BC für einen Transfer eines kleinen 
Programms von 7CC0H bis 7CD1H nach 43A0H vorbereitet. Dieses 
kleine Programm wird über den PRINT-DCB CDevice-Control-Block) 
angesprungen, dessen Zeiger nach 43A0H 'verbogen' wird. 

Wenn das Programm angesprungen wird, steht im C-Register des 
Z-80 der Wert des auszugebenden ASCII-Zeichens. 

Wenn er kleiner als 20H oder größer als 7FH ist, bleibt er er¬ 
halten. Andernfalls wird 80H dazuaddiert, d.h. aus dem Zeichen 
daß den ASCII-Code 21H hat wird also in A1H umgewandelt, 
während z.B. ein Cursor-Home-Code ICH als ICH erhalten bleibt, 
damit der Basic-Interpreter ihn noch erkennt. 

Bei 7CDDH wird der PRINT-DCB nach Adresse 43A0H verbogen. 

Der DCB ist eine Doppelbyte-Adresse, die vom Basic-Interpreter 
im RAM abgelegt wird. Normalerweise zeigt sie auf eine ROM- 
Adresse (hier 30E4H), kann aber bei bedarf geändert werden. 

Man kann also den Basic-Interpreter dazu veranlassen, bei einer 
Zeichenausgabe in ein eigenes Programm zu verzweigen. 

Die Adressen der DCB's sind folgende: 

401EH = Display 4016H = Keyboard 4026H = Printer 

Anschließend werden bei Adresse 7CE3H HL,DE und BC für den 
Transfer des Zeichensatzes von 7D00H bis 7FFFH nach F500H 
vorbelegt. Nach dem Transfer mit LDIR wird noch der Zeichensatz 
(CHARn) über die ROM-Routine bei 3FB0H geändert. Im A-Register 
steht dabei der CHAR-Wert minus eins. Für CHAR 1 also 0, was 
hier über XOR A erreicht wird. Zuletzt folgt ein Sprung zum 
BASIC-Warmstart bei Adresse 0066H. Von nun an werden alle 
Zeichen im Bereich zwischen 20H und 7FH au f AOH bis FFH erhöht. 
Wenn Sie wollen können Sie die Zeichen natürlich auch noch 
abändern, z.B. mit Hilfe eines Zeicheneditors. 



7CC0 F5 73 FE 20 
7CC8 30 03 C6 80 
7CD0 30 00 21 CO 
7CD8 01 11 00 ED 
7CE0 22 IE 40 21 
JTCE8 F5 01 00 03 
7CF0 BO 3F C3 66 
7CF8 00 00 00 00 
7D00 00 00 00 00 
7D08 18 18 18 18 
7D10 24 24 24 00 
7D18 24 24 7E 24 
7D20 18 7E 40 7E 
7D28 60 66 OC 18 
7D30 30 48 48 30 
7D38 18 18 18 00 
7D40 OC 18 30 30 
7D48 30 18 OC OC 
7D50 18 5A 3C 18 
7D58 00 18 18 7E 
7D60 00 00 00 00 
7D68 00 00 00 7E 
7D70 00 00 00 00 
7D78 00 04 08 10 
7D80 7C 44 4C 54 
7D88 10 10 10 10 
7D90 7C 04 04 7C 
7D98 7C 04 04 IE 
7DA0 42 42 42 7E 
7DA8 7E 40 40 7E 
TDBO 40 40 40 7E 
7DB8 7E 02 02 02 
7DC0 7C 44 44 3C 
7DC8 7E 42 42 7E 
7DD0 00 00 18 00 
7DD8 00 00 18 00 
7DE0 OC 18 30 60 
7DE8 00 00 7E 00 
7DF0 60 30 18 OC 
7DF8 3C 66 06 OC 
7E00 7E 42 5E 4C 
7E08 7E 42 42 7E 
7E10 7E 42 42 7C 
7E18 7E 42 40 40 
7E20 7C 46 42 42 
7E28 7E 40 40 78 
7E30 7E 40 40 78 
7E38 7E 42 40 4E 
7E40 42 42 42 7E 
7E48 10 10 10 10 
7E50 7E 42 02 02 
7E58 42 44 48 78 
7E60 40 40 40 40 
7E68 76 4A 4A 42 
7E70 72 4A 4A 46 
7E78 7E 42 42 42 
7E80 7E 42 42 7E 
7E88 7E 42 42 42 
7E90 7E 42 42 7E 
7E98 7E 42 40 7E 
7EA0 7E 52 10 10 
7EA8 42 42 42 42 


38 07 FE 80 49 
4F Fl C3 E4 60 
7C 11 AO 43 81 
BO 21 A0 43 B3 
00 7D 11 00 2F 
ED BO AF CD 12 
00 00 00 00 18 
00 00 00 00 00 
00 00 00 00 00 
18 00 18 00 90 
00 00 00 00 6C 
7E 24 24 00 BO 
02 7E 18 00 EC 
30 66 06 00 86 
6A 64 3A 00 F8 
00 00 00 00 48 
30 18 OC 00 D8 
OC 18 30 00 B4 
3C 5A 18 00 74 
18 18 00 00 DE 
18 18 30 00 60 
00 00 00 00 7E 
00 18 18 00 30 
30 60 00 00 AC 
62 62 7E 00 A2 
18 18 18 00 88 
60 60 7E 00 3E 
06 06 7E 00 2C 
06 06 06 00 56 
06 06 7E 00 06 
62 62 7E 00 80 
06 06 06 00 96 
62 62 7E 00 82 
06 06 06 00 92 
18 00 00 00 30 
18 18 30 00 78 
30 18 OC 00 08 
7E 00 00 00 FC 
18 30 60 00 5C 
18 00 18 00 E4 
60 62 7E 00 AA 
62 62 62 00 A6 
62 62 7E 00 CO 
60 62 7E 00 80 
62 66 7C 00 8A 
60 60 7E 00 B4 
60 60 60 00 96 
62 62 7E 00 90 
62 62 62 00 6A 
18 18 18 00 88 
06 46 7E 00 8E 
64 62 62 00 6E 
60 60 7E 00 3E 
62 62 62 00 72 
62 62 62 00 72 
62 62 7E 00 86 
60 60 60 00 AO 
6A 64 7A 00 8C 
68 64 62 00 AE 
06 46 7E 00 48 
18 18 18 00 38 
62 62 7E 00 4A 
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7EB0 42 42 42 42 64 68 30 00 04 
7EB8 42 42 42 42 6A 6A 34 00 10 
7EC0 42 42 2C 10 2C 62 62 00 BO 
7EC8 42 42 2C 10 18 18 18 00 08 
7ED0 7E 42 02 7E 60 62 7E 00 80 
7ED8 3C 30 30 30 30 30 3C 00 68 
7EE0 00 60 30 18 OC 06 00 00 BR 
7EE8 3C OC OC OC OC OC 3C 00 B4 
7EF0 00 32 4C 00 00 00 00 00 7E 
7EF8 00 00 00 00 00 00 7E 7E FC 
7F00 08 18 30 00 00 00 00 00 50 
7F08 00 00 7R 46 62 62 7E 00 02 
7F10 40 40 7E 42 62 62 7E 00 82 
7F18 00 00 7E 40 60 60 7E 00 FC 
7F20 02 02 7E 42 62 62 7E 00 06 
7F28 00 00 7E 42 7E 60 7E 00 IC 
7F30 OC 10 38 10 18 18 18 00 RC 
7F38 00 00 7R 46 62 7E 02 7E 20 
7F40 40 40 7C 42 62 62 62 00 64 
7F48 10 00 10 10 18 18 18 00 78 
7F50 08 00 08 08 18 18 18 70 DO 
7F58 40 40 44 48 70 68 64 00 48 
7F60 10 10 10 10 18 18 18 00 88 
7F68 00 00 7C 4R 6R 6R 6R 00 04 
7F70 00 00 7C 42 62 62 62 00 E4 
7F78 00 00 7E 42 62 62 7E 00 02 
7F80 00 00 7E 42 62 7E 40 40 20 
7F88 00 00 7E 42 62 7E 02 02 R4 
7F80 00 00 7C 42 60 60 60 00 DE 
7F98 00 00 7E 40 7E 06 7E 00 CO 
7FR0 10 10 38 10 18 18 18 OE BE 
7FR8 00 00 42 42 62 62 7E 00 C6 
7FB0 00 00 42 42 64 68 30 00 80 
7FB8 00 00 42 42 6R 6R 34 00 8C 
7FC0 00 00 42 4C 30 6C 62 00 8C 
7FC8 00 00 42 42 62 7E 02 7E E4 
7FD0 00 00 7E 02 7E 60 7E 00 DC 
7FD8 OC 18 18 30 18 18 OC 00 R8 
7FE0 18 18 18 00 18 18 18 00 90 
7FE8 30 18 18 OC 18 18 30 00 CC 
7FF0 00 18 3C 66 00 00 00 00 BR 
7FF8 FF FF FF FF FF FF FF FF F8 
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7CC0 

F5 

u 

PUSH 

AF 

7CC 1 

79 

V 

LD 

A, C 

7CC2 

FE20 

ß 

CP 

20H 

7CC4 

3807 

8 

DP 

C,$+09H 

7CC6 

FE80 

ß 

CP 

80H 

7CC8 

3003 

0 

DP 

NC,S+05H 

7CCA 

C680 

F 

ADD 

A, 80H 

7CCC 

4F 

0 

LD 

C , A 

7CCD 

Fl 

q 

POP 

AF 

7CCE 

C3E430 

CdO 

DP 

30E4H 

7CD1 

00 


NOP 


7CD2 

21C07C 

! §ö 

LD 

HL,7CC0H 

7CD5 

UA043 

C 

LD 

DE,43A0H 

7CD8 

011100 


LD 

BC,0011H 

7CDB 

EDBO 

mO 

LDIR 


7CDD 

21A043 

! C 

LD 

HL,43A0H 

7CE0 

221E40 

” § 

LD 

C401EH),HL 

7CE3 

21007D 

! ü 

LD 

HL,7D00H 

7CE6 

1100F5 

u 

LD 

DE,0F500H 

7CE9 

010003 


LD 

BC,0300H 

7CEC 

EDBO 

mO 

LDIR 


7CEE 

BF 

/ 

XOR 

A 

7CEF 

CDB03F 

MO? 

CALL 

3FB0H 

7CF2 

C36600 

Cf 

DP 

0066H 
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Ein Screen-Printer 


Sicher haben Sie sich gefragt, wie die vielen Bildschirmaus¬ 
drucke, die in diesem Buch zu finden sind, erzeugt wurden. 

Das folgende Maschinenspracheprogramm erzeugt einen solchen 
Bildschirmausdruck auf dem STAR DP 510/515. Dabei sind sowohl 
Ausdrucke von Texten, als auch von FGR-Grafiken möglich. 
Außerdem erkennt das Programm, welcher Zeichensatz für die 
Zeichen von 128 bis 255 angewählt wurde. 

Nach dem Einschalten Ihres Rechners geben Sie als MEM SIZE 
46330 ein.* Dann laden Sie den "Basic-Monitor" (oder jeden ande¬ 
ren Monitor, sofern dieser nicht die Adressen über B500H be¬ 
legt) und geben das Programm mit dem E-Befehl ein. Wenn Sie 
sicher sind, daß Sie alles fehlerfrei eingegeben haben, schrei¬ 
ben Sie den Screen-Printer mit dem Befehl WB500 BFFF BE40 auf 
Kassette. Zum Schluß geben Sie ein: 

GBE40. 

Der Screen-Printer meldet sich mit: 

<SCREEN PRINTER> 

(c) 1983 von TCS 

C0L0UR BASIC 
READY 

> 

Nun können Sie jederzeit durch Druck auf die Tasten <CTRL> und 
<P> einen Ausdruck des Bildschirms machen. Da dieses Programm 
den Tastatur-DCB anzapft, funktioniert das Programm immer, 
solange es nicht überschrieben wird oder die Tastatur-Treiber- 
Adresse verändert wird. 

Hier nun ein Hex-Dump (mit Prüfsummen) des Screen-Printer: 


(Für dieses Programm muß Ihr Colour-Genie auf 32 K RAM erweitert sein.) 
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BDEO F8 Fl D3 F9 F5 3E 07 D3 C2 
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BDE8 

F8 

3E 

FF 

D3 

F9 

3E 

OF 

D3 

21 

BDFO 

F8 

3E 

00 

D3 

F9 

3E 

OF 

D3 

22 

BDF8 

F8 

3E 

01 

D3 

F9 

Fl 

C9 

00 

BD 

BEOO 

3E 

1B 

CD 

CO 

BD 

3E 

41 

CD 

EF 

BE08 

CO 

BD 

3E 

08 

CD 

CO 

BD 

C3 

DO 

BE 10 

60 

BD 

3A 

80 

F8 

FE 

10 

CO 

9D 

BE 18 

3A 

04 

F8 

FE 

01 

CO 

C5 

D5 

8F 

BE20 

E5 

DD 

E5 

21 

32 

BE 

E5 

3A 

D7 

BE28 

IC 

43 

CB 

6F 

CA 

00 

BE 

C3 

E4 

BE30 

00 

BF 

DD 

El 

El 

Dl 

CI 

C9 

B9 

BE38 

E5 

21 

E3 

03 

E3 

C3 

12 

BE 

62 

BE40 

21 

38 

BE 

22 

16 

40 

21 

20 

DO 

BE 48 

BF 

CD 

A7 

28 

21 

00 

B5 

C3 

F4 

BE50 

02 

01 

00 

00 

00 

00 

00 

00 

03 

BE58 

00 

00 

00 

00 

00 

00 

00 

00 

00 

BE60 

DD 

21 

00 

48 

3A 

12 

43 

47 

IC 

BE68 

C5 

06 

28 

21 

00 

42 

DD 

7E 

Bl 

BE70 

00 

E6 

CO 

OF 

OF 

OF 

OF 

OF 

Fl 

BE78 

OF 

CD 

CC 

BE 

DD 

7E 

00 

E6 

A7 

BE80 

30 

OF 

OF 

OF 

OF 

CD 

CC 

BE 

C3 

BE88 

DD 

7E 

00 

E6 

OC 

OF 

OF 

CD 

38 

BE90 

CC 

BE 

DD 

7E 

00 

E6 

03 

CD 

9B 

BE98 

CC 

BE 

3E 

1B 

CD 

CO 

BD 

3E 

6B 

BEAO 

4B 

CD 

CO 

BD 

3E 

OC 

CD 

CO 

6C 

BEA8 

BD 

3E 

00 

CD 

CO 

BD 

C5 

06 

10 

BEBO 

OC 

21 

00 

42 

7E 

CD 

CO 

BD 

37 

BEB8 

23 

10 

F9 

CI 

DD 

23 

10 

AB 

A8 

BECO 

CI 

3E 

OD 

CD 

CO 

BD 

10 

AO 

06 

BEC8 

C9 

00 

00 

00 

B7 

20 

OA 

36 

EO 

BEDO 

00 

23 

36 

00 

23 

36 

00 

23 

D5 

BED8 

C9 

FE 

01 

20 

OA 

36 

AO 

23 

EB 

BEEO 

36 

AO 

23 

36 

AO 

23 

C9 

FE 

B9 

BEE8 

02 

20 

OA 

36 

50 

23 

36 

AO 

AB 

BEFO 

23 

36 

50 

23 

C9 

36 

FO 

23 

DE 

BEF8 

36 

FO 

23 

36 

FO 

23 

C9 

00 

5B 

BFOO 

3E 

1B 

CD 

CO 

BD 

3E 

41 

CD 

EF 

BF08 

CO 

BD 

3E 

04 

CD 

CO 

BD 

C3 

CC 

BF10 

60 

BE 

00 

00 

00 

00 

00 

00 

IE 

BF18 

00 

00 

00 

00 

00 

00 

00 

00 

00 

BF20 

3C 

53 

43 

52 

45 

45 

4E 

20 

IC 

BF28 

50 

52 

49 

4E 

54 

45 

52 

3E 

62 

BF30 

OD 

28 

63 

29 

20 

31 

39 

38 

83 

BF38 

33 

20 

76 

6F 

6E 

20 

54 

43 

5D 

BF40 

53 

OD 

OD 

00 

00 

00 

00 

00 

6D 

BF48 

00 

00 

00 

00 

00 

00 

00 

00 

00 

BF50 

00 

00 

00 

00 

00 

00 

00 

00 

00 

BF58 

00 

00 

00 

00 

00 

00 

00 

00 

00 

BF60 

00 

00 

00 

00 

00 

00 

00 

00 

00 

BF68 

00 

00 

00 

00 

00 

00 

00 

00 

00 

BF70 

00 

00 

00 

00 

00 

00 

00 

00 

00 

BF78 

00 

00 

00 

00 

00 

00 

00 

00 

00 

BF80 

00 

00 

00 

00 

00 

00 

00 

00 

00 

BF88 

00 

00 

00 

00 

00 

00 

00 

00 

00 

BF90 

00 

00 

00 

00 

00 

00 

00 

00 

00 

BF98 

00 

00 

00 

00 

00 

00 

00 

00 

00 



BFAO 

00 

00 

00 

00 

00 

00 

00 

00 

00 

BFB8 

00 

00 

00 

00 

00 

00 

00 

00 

00 

BFBO 

00 

00 

00 

00 

00 

00 

00 

00 

00 
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00 
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00 
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Anhang As .Basic Eint' achtukens 


1 £8 

T 

END 

1 29 

r 

FOR 

1 30 

J 

RESET 

1 3 1 

L. 

SET 

1 32 

4 

CLS 

1 33 

► 

CMD 

1 34 

* 

RANDOM 

1 35 

•» 

NEXT 

1 36 

— 

DATA 

1 37 

i 

INPUT 

1 38 

! 

DIM 

1 39 


READ 

1 <*0 


LET 

1 41 

□ 

GOTO 

1 42 

T 

RUN 

1 43 

- 

IF 

1 44 

i 

RESTORE 

1 45 

■■ 

GOSUB 

1 46 

r 

RETURN 

1 47 

1 

REM 

1 48 

> 

STOP 

1 49 

< 

ELSE 

1 50 

► 

TRÜN 

1 5 1 

4 

TROFF 

1 52 

■ 

DEFSTR 

1 53 

i 

D E F I N T 

1 54 


DEFSNG 

1 55 

L 

DEFDBL 

1 56 

J 

LINE 

1 57 

A 

EDIT 

1 58 

V 

ERROR 

1 59 


RESUME 

1 60 

*** 

OUT 

1 61 

tff 

ON 

1 62 

C 

OPEN 

1 63 

1 

FIELD 

1 64 

n 

GET 

1 65 

u 

PUT 

1 66 

* 

CLOSE 

1 67 

4V 

LOAD 

1 68 

ii 

MER6E 

1 69 

m 

NAME 

1 70 

* 

KILL 

1 7 1 

i 

LSET 

1 72 

□ 

RS E T 

1 73 

K 

SAVE 

1 74 

£ 

SYSTEM 

1 75 

p. 

LPRINT 

1 7 6 

W 

DEF 

1 77 

■ 

POKE 

1 78 

y 

PRINT 

1 79 

.1 

CONT 

1 80 


LIST 

1 81 


LLIST 

1 82 

i 

DELETE 

1 83 


AUTO 

1 84 

u 

CLEAR 

1 85 

X 

CLOAD 

1 8 6 

i 

CSAVE 

1 87 


NEW 

1 88 

_ 

T AB < 

1 89 

■ 

TO 

1 90 

■ 

FN 

1 91 

" 

US ING 

1 92 

ft 

VARPTR 

1 93 

= 

USR 

1 94 

+ 

ERL 

1 95 

% 

ERR 

1 96 


STRINGS 

1 97 

X 

INSTR 

1 9 8 

* 

CHECK 

1 99 

N 

TIME* 

200 

* 

MEM 

201 

4 

I N K E Y $ 

202 

■ 

THEN 

203 

II 

NOT 

204 

in 

STEP 

205 

Ä 

+ 

206 

— 

- 

207 

1 

* 

208 

— 

/ 

209 


C 

21 0 


AND 

21 1 

“■ 

OR 

21 2 

i 

> 

21 3 

1 

= 

21 4 

\ 

< 

21 5 

= 

SGN 

21 6 

in 

INT 

21 7 

— 

ABS 

21 8 

mm* 

FRE 

21 9 

1 

INP 

220 


POS 

221 

II 

SQR 

222 

*■ 

RND 

223 

X 

LOG 

224 

k 

EXP 

225 

1 

COS 

226 

r 

SIN 

227 

\ 

TAN 

228 


ATN 

229 


PEEK 

230 

• 

CVI 

231 

w 

CVS 

232 


CVD 

233 

□ 

EOF 

234 


LOC 

235 

o 

LOF 

236 

r 

MKI* 

237 

T 

MKS* 

238 

i 

MKD* 

239 

L 

CINT 

240 


CSNG 

241 

X 

CDBL 

242 

♦ 

FIX 

243 


LEN 

244 


STR* 

245 

» 

VAL 

246 

. 

ASC 

247 

zz 

CHR* 

248 

□ 

LEFT* 

249 

m u m 

RIGHT* 

250 

ts 

MID* 

251 

4* 

■ 


r 


Colour-Basic Doppeltokens 


255 

1 28 

T 

COLOUR 

255 

1 2 3 

r 

FCOLOUR 

255 

1 30 

J 

KEYPAD 

255 

1 31 

L. 

□ OY 

255 

1 32 

4 

PLOT 

255 

1 33 

► 

F8R 

255 

1 34 

Jh 

LGR 

255 

1 35 


FC L S 

255 

1 36 

— 

PLAY 

255 

1 37 


CIRCLE 

255 

1 38 

1 

SCALE 

255 

1 39 


SHAPE 

255 

1 48 


NSHAPE 

255 

1 41 

□ 

XSHAPE 

255 

1 42 

T 

PAINT 

255 

1 43 


C P 0 I N T 

255 

1 44 

i 

NPLOT 

255 

1 45 


SOUND 

255 

1 46 

r 

CHAR 

255 

1 47 


RENUM 

255 

1 48 

> 

SWAP 

255 

1 49 

< 

FKEY 

255 

1 50 

¥ 

CALL 

255 

1 51 

4 

VERIFY 

255 

1 52 

u 

BORD 

255 

1 53 

4 

NBGRD 


CDie Tokens sind die der neuen Basic-ROMs, 
die seit April *83 eingebaut sind.) 


Folgendes Programm erzeugt eine aequivalente Liste auf dem Bildschirm: 


10 CLS:C=-1:A=127:B=3:CHAR4 
20 PRINT”Basic Einfachtokens”:X=&H1650 
30 IFPEEKCX)>127THEN50 

40 PRINTCHRSC PEEKCX)AND127) ; :X=X+1:G0T030 
50 B=B+1:C=C+1:IFC=124THEN90 
60 IFB<48THEN80 
70 G0SUB160:CLS:B=0 

80 A=A+1:PRINT:COLOUR1:PRINT§CINTCB/2)*40)+CA-INTCA/2)*2)*20,A;” ”;:C0 
L0UR5:PRINTCHR$(Al:” ”;:C0L0UR2:G0T040 

90 G0SUB160:CLS:B=3:C = -1 :A=127:X=8cH3930 
100 PRINT”Colour-Basic Doppeltokens” 

110 IFPEEKCX)>127THEN130 

120 PRINTCHR$ C PEEKC X)AND127);:X=X+1:G0T0110 
130 IFA=129THENPRINT”R”; 

140 B=B+1:C=C+1:IFC=26THENEND 

150 A=A+1:PRINT:COLOUR1:PRINT§CINTCB/2)*40)+CA-INTCA/2)*2)*20,”255”:A; 

” ”j:C0L0UR5:PRINTCHR$CA);” ”;:C0L0UR2:G0T0120 

160 PRINT§960,”Bi11e druecken Sie <RETURN>”::INPUTR$:RETURN 


Beachten Sie, daß ein Teil der Befehle erst im Disk-Basic benutzt werden (z.B. TIME $). 
Im normalen Basic haben diese Befehle keine Funktion und führen zu ”?SN ERROR”. 
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Anhang B: 

Dezimal/Hexadezimal/ASCII-Tabelle 


Dez 


Hex 

Z . 

Dez 


Hex 

Z . 

Dez 


Hex 

Z 

0 

= 

00H 


1 

= 

01 H 


2 

= 

02H 


3 

= 

0 3 H 


4 

= 

0 4 H 


5 

= 

0 5 H 


6 

= 

0 6 H 


7 

= 

07H 


8 

= 

08H 


9 

= 

0 9 H 


1 0 

= 

8 AH 


1 1 

= 

0BH 


1 2 

= 

0CH 


1 3 

= 

0DH 


1 4 

= 

0EH 


1 5 

= 

0 FH 


1 6 

= 

1 0H 


1 7 

= 

1 1 H 


1 S 

= 

1 2 H 


1 9 

= 

1 3H 


20 

= 

1 4 H 


2 1 

= 

1 5 H 


22 

= 

1 6H 


23 

= 

1 7H 


24 

= 

1 8 H 


25 

= 

1 9H 


26 

= 

1 AH 


27 

= 

1 BH 


28 

= 

1 CH 


29 

= 

1 DH 


38 

= 

1 EH 


31 

= 

1 FH 


32 

= 

20H 


33 

= 

21 H 

i 

34 

= 

22H 

B 

35 

= 

23H 

# 

36 

= 

2 4 H 

$ 

37 

= 

25H 

y m 

38 

= 

26H 

& 

39 

= 

27H 

1 

4 0 

= 

28H 

< 

41 

= 

29H 

> 

42 

= 

2 AH 

* 

43 

= 

2BH 

+ 

44 

= 

2CH 

* 

45 

= 

2DH 

- 

46 

= 

2EH 


47 

= 

2FH 

X 

4 8 

= 

30H 

0 

49 

= 

31 H 

i 

50 

= 

32H 

2 

5 1 

= 

33H 

3 

52 

= 

3 4 H 

4 

53 

= 

35H 

5 

54 

= 

3 6 H 

6 

55 

= 

37H 

7 

56 

= 

38H 

8 

57 

= 

3 9 H 

9 

58 

= 

3 AH 


59 

= 

3BH 

} 

60 

= 

3CH 

< 

61 

= 

3DH 

= 

62 

= 

3EH 

> 

63 

= 

3FH 

7 

64 

= 

40H 

@ 

65 

= 

41 H 

A 

66 

= 

4 2 H 

B 

67 

= 

4 3 H 

C 

63 

= 

4 4 H 

D 

69 

= 

45H 

E 

70 

= 

46H 

F 

71 

= 

47H 

G 

72 

= 

48H 

H 

73 

= 

49H 

I 

74 

= 

4 AH 

□ 

75 

= 

4BH 

K 

76 

= 

4CH 

L 

77 

= 

4DH 

H 

73 

= 

4EH 

N 

79 

= 

4FH 

0 

30 

= 

50H 

P 

31 

= 

51 H 

Q 

82 

= 

52H 

R 

83 

= 

53H 

S 

84 

= 

54H 

T 

35 

= 

55H 

U 

86 

= 

56H 

V 

87 

= 

57H 

U 

38 

= 

58H 

X 

89 

= 

59H 

Y 

90 

= 

SAH 

Z 

91 

= 

5BH 

E 

92 

= 

5CH 

\ 

93 

= 

5DH 

3 

94 

= 

5EH 

A 

95 

= 

5FH 


96 

= 

60H 

X 

97 

= 

61 H 

a 

93 

= 

62H 

b 

99 

= 

63 H 

C 

1 00 

= 

64H 

d 

101 

= 

65H 

e 

1 02 

= 

66H 

f 

1 03 

= 

67H 

9 

1 04 

= 

63H 

h 

1 05 

= 

69H 

i 

1 06 

= 

6 AH 

j 

1 07 

= 

6BH 

k 

1 08 

= 

6CH 

1 

1 09 

= 

6DH 

m 

1 1 0 

= 

6EH 

n 

1 1 1 

= 

6FH 

o 

1 1 2 

= 

70H 

P 

1 1 3 

= 

71 H 

q 

1 1 4 

= 

72H 

r 

1 1 5 

= 

73H 

s 

1 1 6 

= 

74H 

t 

1 1 7 

= 

75H 

u 

1 1 8 

= 

76H 

V 

1 1 9 

= 

77H 

w 

1 20 

= 

78H 

X 

121 

= 

79H 

y 

1 22 

= 

7 AH 

z 

1 23 

= 

7BH 

C 

1 24 

= 

7CH 

■ 

i 

1 25 

= 

7DH 


126 

= 

7EH 


1 27 

= 

7FH 

■ 

1 28 

= 

80H 

n 

1 29 

= 

31 H 

r 

1 30 

= 

82H 

J 

131 

= 

83H 

L. 

1 32 

= 

84H 

4 

1 33 

= 

85H 

► 

1 34 

= 

86H 

JL 



1 35 

= 

87H 

W 

1 36 

= 

88H 

— 

1 37 

= 

89H 

1 

1 38 

= 

SAH 

1 

1 39 

= 

8BH 

— 

1 40 

= 

SCH 


1 41 

= 

3DH 

□ 

1 42 

= 

3EH 

1 

1 43 

= 

8FH 

T 

1 44 

= 

90H 

1 

1 45 

= 

91 H 

■■ 

1 46 

= 

92H 

r 

1 47 

= 

93 H 


1 48 

= 

94H 

> 

1 49 

= 

95 H 

< 

1 58 

= 

96 H 

► 

1 51 

= 

97H 


1 52 

= 

9SH 

■ 

1 53 

= 

99H 

* 

1 54 

= 

9 AH 

•m. 

1 55 

= 

9BH 

L 

1 56 

= 

9CH 

1 

1 57 

= 

9DH 

A 

1 58 

= 

9EH 

V 

1 59 

= 

9FH 

* 

1 60 

= 

A0H 

» 

161 

= 

AI H 

m 

1 62 

= 

A2H 

C 

1 63 

= 

A3H 

1 

1 64 

= 

A4H 

n 

1 65 

= 

A5H 

u 

1 66 

= 

A6H 

* 

1 67 

= 

A7H 

# 

1 68 

= 

A8H 

IS 

1 69 

= 

A9H 

m 

1 70 

= 

A AH 

* 

1 71 

= 

ABH 

1 

1 72 

= 

ACH 

□ 

1 73 

= 

ADH 

K 

1 74 

= 

AEH 

£ 

1 75 

= 

AFH 

ft 

1 76 

= 

B0H 

V 

1 77 

= 

Bl H 

■ 

1 78 

= 

B2H 

u 

1 79 

= 

B3H 

/I 

1 88 

= 

B4H 


1 81 

= 

B5H 


1 82 

= 

B6H 

1 

1 83 

= 

B7H 

s 

1 84 

= 

B8H 

iS 

1 35 

= 

B9H 

X 

1 86 

= 

BAH 

1 

1 87 

= 

BBH 


1 38 

= 

BCH 


1 89 

= 

BDH 

■ 

1 90 

= 

BEH 

■ 

191 

= 

BFH 

~ 

1 92 

= 

C0H 


1 93 

= 

CI H 


1 94 

= 

C2H 

+ 

1 95 

= 

C3H 

& 

1 96 

= 

C4H 

i 

1 97 

= 

C5H 

X 

1 98 

= 

C6H 

* 

1 99 

= 

C7H 

N 

200 

= 

C3H 

♦ 

181 

= 


!§§ 

— 

m 

3 

iü 


m 

M 

207 

= 

CFH 

1 

203 

= 

D0H 

— 

209 

= 

Dl H 

■i 

21 0 

= 

D2H 


21 1 

= 

D3H 

■— 

21 2 

= 

D4H 

1 

21 3 

= 

D5H 

1 

214 

= 

D6H 

% 

215 

= 

D7H 

= 

216 

= 

D3H 

m 

21 7 

= 

D9H 

— 

21 3 

= 

DAH 


21 9 

= 

DBH 

i 

220 

= 

DCH 


221 

= 

DDH 

n 

222 

= 

DEH 


223 

= 

DFH 


224 

= 

E0H 

k 

225 

= 

El H 

i 

226 

= 

E2H 

r 

227 

= 

E3H 

\ 

223 

= 

E4H 


229 

= 

E5H 


238 

= 

E6H 

• 

231 

= 

E7H 

w 

232 

= 

E3H 


233 

= 

E9H 

□ 

234 

= 

E AH 

\ 

235 

= 

EBH 

o 

236 

= 

ECH 

r 

237 

= 

EDH 

T 

238 

= 

EEH 

i 

239 

= 

EFH 

L 

240 

= 

F0H 

J 

241 

= 

Fl H 

K 

242 

= 

F2H 

♦ 

243 

= 

F3H 

# 

244 

= 

F4H 


245 

= 

FSH 

i 

246 

= 

F6H 

- 

247 

= 

F7H 

:: 

248 

= 

F3H 

□ 

249 

= 

F9H 

M 

250 

= 

FAH 

m 

251 

= 

FBH 

f 

252 

255 

= 

FCH 

FFH 

4 

253 

— 

FDH 


254 

= 

FEH 

ii 


Fo1 gen des Programm erzeugt ein ae quiua1entes Listing auf dem Bi1dschirw; 

10 CLS:B=3 

15 PRINT”Dez Hex Z. Dez Hex Z. Dez Hex Z." 

20 F0RA=0T0255 

30 IFA<32THENAS=" "ELSEAS^CHRSCR) 

40 AlS=STRSCA):Al$=RIGHTS C AlS,LENCAl$) -1) 

50 IFLENCAIS)<3THENA1S-STRINGSC3-LEN(AIS),32)+AlS 
60 AlS=A1S+” = ” 

70 A1 = INTC A/16):A2 s RAND15 

80 IFA1<10THENA1S=A1S+CHRSC48+A1)ELSEA1S*A1S+CHRSC55+A1) 

90 IFA2<10THENA1S=A1S+CHRS(48+A2)ELSEA1S=A1S+CHRSC55+A2) 

100 AlS=A1S+”H ”+AS 

110 PRINT §INT C B/3)*40+ C B-1NT(B/3)*3)*13,; 

120 B-B+l 

130 C0L0UR3:PRINTMIDS(AIS,1,3);:C0L0UR1:PRINTMIDSCAIS,4,3);:C0L0UR6:PR 
INTMIDS(AlS,7,3);:C0L0UR2:PRINTMIDS(AlS,10,2); 

140 IFB<69THENNEXTA 

150 IFINKEYS=””THEN150ELSEB=0:CLS:GOTO 140 
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*************************************************************** 
Verzeichnis der verfügbaren Colour-Genie-Software 
*************************************************************** 

1.) HILFSPROGRAMME 

COLOUR-COMPILER: Dieses Programm ist extrem wertvoll. Es bietet 
die Möglichkeit, Basicprogramme in Maschinenspracheprogramme zu 
übersetzten. 

Der wesentliche Vorteil: Ihr Programm läuft nach Compilierung 
c.a. 40 mal C!) schneller. 

Dies geschieht interaktiv, d.h. Basicprogramm, Maschinen¬ 
programm und Compiler stehen gleichzeitig im Speicher, was ein 
sehr schnelles Arbeiten ermöglicht. Dabei können c.a. 9.5 kByte 
Basicprogramm verarbeitet werden. Verzichtet man auf die 
hochauflösende Grafik, steht noch mehr Speicher zur Verfügung. 
Voraussetzung: Ihr C0L0UR-GENIE MUSS AUF 32K RAM ERWEITERT 
SEIN. Die meisten Colour-Basic-Befehle werden vom 
Colour-Compiler unterstützt. Die wesentlichste Einschränkung 
ist, daß der Colour-Compiler nur Ganzzahlen CIntegers) 
verarbeitet. 

Preis: 69.- DM 

C0L0UR-M0NITOR I: Ein Maschinensprachemonitor mit starkem 
Befehlssatz, z.B. Disassemlieren, Ascii/Hex-Dump, Bänder 
laden/schreiben, Bytes suchen, Speicher editieren/verschieben/ 
relozieren, Hex/Dezimal-Umwandlung u.a.m. 

Preis: 39.- DM 

COLOUR-ASSEMBLER: Mit diesem Programm können Maschinensprache- 
Programme auf komfortable Weise entwickelt werden. Das 
Programmieren geschieht mit 280-Mnemonics, Labels etc. 

Der Assembler erzeugt dann das Maschinenspracheprogramm, das 
zur Probe auch direkt ausgeführt werden kann. 

Eine weitere Besonderheit des Assemblers ist, daß der 
Assembler-Text im ganz normalen Basic-Modus erzeugt wird, 
so daß alle Basic-Befehle wie EDIT, LLIST, CSAVE vom Assembler 
ausgenutzt werden. 

Preis: 69.- DM 

SOUND-EDITOR (auch im Handbuch "Colour Basic leicht gelernt" 
aufgelistet} : Ein nützliches Hilfsprogramm zur Programmierung 
des PSG-ICs CSound-Chip). Sie editieren die PSG-Register auf 
dem Bildschirm und der entsprechende Ton wird gleichzeitig 
ausgegeben. Abschließend gibt das Programm alle PSG-Register- 
inhalte in dezimaler Schreibweise aus. 

Preis: 25.- DM 

ZEICHEN-EDITOR Cauch im Handbuch "Colour Basic leicht gelernt” 
aufgelistet) : Dieses Programm ermöglicht es, 64 der 128 frei 
definierbaren Zeichen auf dem Bildschirm übersichtlich zu 
editieren. Es können auch Grafiken, wie z.B eine Schreib¬ 
schrift, erstellt werden. Abschließend werden die definierten 
Zeichen in ein Basicprogramm geschrieben, was diese für den 
späteren Gebrauch oder zur Entwicklung eigener Programme wieder 
definiert. So wird die umständliche Handhabung der Programm¬ 
ierung der definierbaren Zeichen umgangen. 

96 Preis: 25.- DM 



GRAFIK-EDITOR: Wenn Sie Ihr Colour-Genie auf 32K RAM auf¬ 
gerüstet haben, können Sie dieses Programm einsetzten, denn 
der "Grafik-Editor" hat eine Länge von 26000 Bytes! 

Er bietet die Möglichkeit, Grafiken im FGR-Modus mit einer 
Vielzahl von leistungsstarken Kommandos zu kreieren. 
Abschließend wird ein Basic-Programm erzeugt werden, das, 
eingebunden in ein eigenes Programm, das Bild blitzschnell 
wieder auf den Bildschirm bringt. Sie können also auch komplexe 
Grafiken sehr schnell fertigstellen und sie hinterher beliebig 
verwenden. 

Preis: 69.- DM 

SHAPER: Die Handhabung des Basicbefehls "SHAPE" ist recht 
umständlich. Hier bringt der "Shaper" Abhilfe: Mit wenigen 
Tastendrücken erzeugen Sie eine Figur, die abschließend 
im Foramt der "Shape-Table" abgespeichert wird. 

Preis: 25.- DM 

COLROT: Ein sehr nützliches Grafikprogramm, für alle die mit 
großen Texten Aufmerksamkeit erregen wollen (z.B. im 
Schaufenster). Colrot erzeugt Laufschriften mit bis zu 512 
Zeichen Länge, Titel und Fußschrift, Inversdarstellung, 
Intermezzo u.v.a.m. 

Ein komfortabler Editor ermöglicht einfaches Arbeiten. 

Preis: 69.- DM 

BASICODE: Dieses Programm macht ihr Colour-Genie Basicode- 
kompatibel ! Basicode ist das Standard-Basic, in dem z.B. 
das WDR-Fernsehen Programme austrahlt. Eine Hardwareänderung 
ist nicht nötig. 

Preis: 25.- DM 

PLOTTER: Plotter ist ein anspruchsvolles Mathematikprogramm, 
das beliebige Funktionen zeichnet, Wertetabellen erstellt 
u . s . w . 

Preis: 39.- DM 

ZEICHENEDITOR+: Dieser Editor, in Maschinensprache geschrieben, 
ermöglicht es alle 128 Zeichen sehr schnell und komfortabel 
zu editieren. Dabei gibt es sogar Befehle um Kreise zu 
zeichnen, Zeichen zu kopieren/duplizieren/rotieren/invertieren 
u.v.a.m. 

Preis: 39.- DM 

BASIC+5: Dieses Programm erweitert das normale Basic um 5 
Befehle: Im Grafikmodus können beliebige Texte dargestellt 
werden. Rechteckflächen können gemalt werden, mit "SAVE" können 
Machinenspracheprogramme gesichert und mit "LOAD" komfortabel 
geladen werden. Ferner steht ein Eingabebefehl zur Verfügung, 
der an beliebige Speicherzellen schreibt. 

Preis: 39.- DM 
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ZEICHENSÄTZE: Dieses Programm läßt Sie den vorhandenen Zeichen¬ 
satz für alle ASCII-Zeichen wahlweise gegen einen von acht 
neuen, interessanten Zeichensätzen ersetzen. 

Für dieses Programm muß Ihr Colour-Genie mit 32K RAM 
ausgerüstet sein. 

Preis: 25.- DM 

SCREEN-PRINTER: (Auch in dem Buch '"Das Colour-Genie-Buch 1” 
aufgelistet.) Auf dieses Programm haben die Besitzer des STAR- 
Druckers DP 510 bzw. DP 515 sicher gewartet ! 

Es ermöglicht es Ihnen, den Bildschirm jederzeit komplett auf 
Ihren Drucker auszugeben, egal ob Sie im FGR- oder im LGR-Modus 
sind. Definierte und feste Grafikzeichen werden ebenfalls mit 
ausgedruckt. Auch für dieses Programm brauchen Sie 32K RAM und 
natürlich einen STAR DP 510 / DP 515 Drucker. 

Preis: 39.- DM 
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2.D SPIEL- u. GRAFIKPROGRAMME 

INVASION AUS DEM WELTRAUM: Ein Maschinenspracheprogramm, das 
die Sound- u. Grafikmöglichkeiten des Colour-Genies voll 
ausnutzt, Ihre Aufgabe ist es, einen Pulk von Invasoren 
abzuwehren, der sich der Erde nähert. 

Die Invasoren werden dabei immer schneller und gefährlicher. 
Preis: 39.- DM 

PUNKTE3AGD: Bei diesem Spiel geht es darum, alle Punkte in 
einem Labyrint aufzusammeln, bevor Sie von einem Wächter 
eingeholt werden. Schnelle Grafik und Ton durch Maschinen¬ 
sprache . 

Preis: 25.- DM 

WURM: Unser derzeit schnellstes Action-Spiel. Ein Wurm kommt 
von oben den Bildschirm herab und versucht Sie zu vernichten. 
Dabei hat er die Spinne, die Fliege und die Ente als Helfer. 
Kein Spiel für ruhige Stunden! 

Preis: 39.- DM 

BREAK OUT: Bei diesem Video-Spiel muß eine Mauer mit Ihrem Ball 
zerstört werden. Dabei können verschieden Schwierigkeitsgrade 
vorgewählt werden. Hohe Geschwindigkeit durch Maschinensprache¬ 
programmierung. 

Preis: 39.- DM 

DEMOPROGRAMM: Hiermit können Sie besser als mit der mit Ihrem 
Colour-Genie z.Zt. mitgelieferten englischen Demokassette die 
Möglichkeiten Ihres Colour-Genies demonstrieren. 

Preis: 25.- DM 

ANDROMEDA: Ein erstklassiges dreidimensionales Weltraumspiel 
mit ansprechender Grafik. Feindliche Raumschiffe kommen auf Sie 
zu; vernichten Sie diese, bevor sie Ihnen wertvolle Energie ab¬ 
gesaugt haben. Ist die Zeit abgelaufen, so eilt Ihnen Ihre 
Mutterbasis zu Hilfe; aber das Auftanken will auch gelernt 
sein. 

Preis: 39.- DM 

MAU-MAU: Endlich haben Sie einen Spielpartner, der nicht wütend 
die Karten wegwirft, wenn er am verlieren ist. Dies dürfte wohl 
aber auch selten der Fall sein, vielmehr wahrscheinlich ist es, 
daß Sie den Computer vor Wut ausschalten, da ihr Computer Dank 
einer hervorragenden Taktik auf Sieg programmiert ist. 

CEr schummelt nicht MD Gespielt wird nach den üblichen Regeln. 
Preis: 25.- DM 

HEKTIK: Stellen Sie sich vor. Sie wären in einem Neubau mit 6 
Geschossen, bei dem die Ebenen durch Leitern verbunden sind. 
Oetzt kommen Ihnen von oben Verfolger entgegen. Sie müßen sich 
ihnen stellen, denn es gibt keinen Fluchtweg. Graben Sie an 
strategisch wichtigen Stellen Löcher in den Boden, um so Ihre 
Verfolger auszuschalten. 

Preis: 39.- DM 
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METEOR: Ein Super-Action-Spiel im Grafik-Modus Ihres Colour- 
Genies. Sie befinden sich in einem Meteoritenfeld und werden 
von Meteoriten, Sternen und schiessenden Ufos bedrängt. 

Das Programm zeichnet sich durch sehr schnelle Grafik und gute 
Toneffekte aus. 

Preis: 69.- DM 

MOTTEN: Bei diesem Videospiel müßen Sie Kolonnen von Motten 
bekämpfen, die in gefährlichen Sturzflügen anfliegen und dabei 
auch noch schiessen. 

Preis: 39.- DM 

PANIK: Ein Programm für 2 Spieler. Man muß versuchen, den 
Gegner einzumauern. Wählbare Geschwindigkeit macht "Mauer" 
entweder zu einem Reaktions- oder zu einem Strategiespiel. 

Das Programm kann wahlweise mit Joysticks oder mit der Tastatur 
bedient werden. 

Preis: 25.- DM 

TAUSENDFUß: Hier sollen Sie einen Wurm so steuern, daß er nur 
Futter aber kein Gift frißt. Dazu kommen noch Kraftfutter und 
Gegengift. Ein sehr unterhaltsames Geschicklichkeitsspiel für 
die ganze Familie. Bei Spielbeginn können viele verschiedene 
Geschwindigkeiten und Schwierigkeitsstufen vorgewählt werden. 
Preis: 39.- DM 

COLOUR-SCHACH: Jetzt können Sie gegen Ihr Colour-Genie auch 
Schach spielen. Colour-Schach bietet 7 verschiedene Spiel¬ 
stärken, Aufzeichnung eines laufenden Spieles auf Kassette, 
Ändern von Stellungen, einen Demonstrationsmodus und anderes 
mehr. Die Figuren werden auf ansprechende Weise grafisch 
dargestellt. 

Preis: 69.- DM 

EXNIMROID: Ein Denkspiel, abgeleitet vom bekannten Nim-Spiel. 

Es geht darum, aus mehreren Häufchen den letzten Spielstein 
zu nehmen. Sie spielen gegen den Computer. 

Preis: 25.- DM 

KINGS: Eine Regierungssimulation, bei der Sie für eine Dauer 
von 8 Jahren eine Insel regieren sollen. Dabei kann nur der 
kluge Einsatz aller Faktoren zu einem Erfolg führen. Haben 
Sie Ihre Amtszeit überlebt, werden Ihre Taten ausgewerted, und 
Sie können dann auch weiter regieren. 

Preis: 25.- DM 

MAUSI: Ein lustiges Videospiel, bei dem Sie als Maus im 
strömendem Regen Käse holen sollen, ohne naß zu werden. 

Preis: 25.- DM 
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MAMPFMAN: Ähnlich wie unser Spiel "Punktejagd", nur daß Sie 
hier von mehreren Gespenstern verfolgt werden, die Sie unter 
bestimmten Bedingungen jedoch auch fressen können. 

Preis: 39.- DM 

COLOUR-KONG: Das absolute Videospiel ! Retten Sie Ihre 
Freundin vor dem wilden Affen. Mehrere Ebenen, super Grafik 
und Musik. Auf dem Band finden Sie Versionen für 32K und 
16K RAM 

Preis: 69.- DM 

PANZERKAMPF: Ein Spiel für zwei Personen C JOYSTICKS und 32K RAM 
erforderlich). Liefern Sie sich mit Ihrem Gegner spannende 
Panzerschlachten ! Das Programm verfügt über 3 verschiedene 
Gelände mit Minen etc. 

Preis: 69.- DM 

EIS: Ein spannendes, zugleich jedoch auch recht schwieriges 
Actionspiel mit strategischen Elementen. Sie befinden sich in 
einem Kühl raum und müßen Eisblöcke so ans Rutschen bringen, daß 
die gefährlichen Schneemonster vernichtet werden. 

Preis: 39.- DM 

EAGLE: Vernichten Sie verschiedene Schwadronen von Vögeln, 
bevor Sie versuchen das große Mutterschiff zu zerstören. 

Preis: 39.- DM 

GAME of LIFE: Dieses bekannte Programm simuliert das Wachstum 
von Bakterienkulturen. Die Regeln werden im Programm erklärt 
und einige interessante Figuren sind fest abgespeichert. 

Preis: 25.- DM 


SAUG: Ein lustiges Videospiel 
unterirdischen Labyrint Termi 
vor giftigen, roten Termiten 
Das Spiel kann auch mit Joyst 


Preis: 39.- 

DM 
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BÄNG-BÄNG: Zwei Cowboys begegnen sich in der Prärie und liefern 
sich ein erbittertes Duell. Für dieses Spiel sind Joysticks 
erforderlich. 

Preis: 39.- DM 


NETZO: Versuchen Sie mit Ihrem Pinsel alle Flächen auszumalen, 
ohne von Ihren Gegnern erwischt zu werden. 

Preis: 39.- DM 
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DEATH-TRAP, ein dreidimensionales Grafik-Abenteuerspiel 
CAdventure): 

Ein Programm zum wahnsinnig werden! Sie befinden sich in einem 
Labyrinth mit über 1100 Räumen, in dem es von gefährlichen 
Einwohnern und Gegenständen wimmelt. Finden Sie die wichtigen 
Gegenstände und wenden Sie sie richtig an, um aus dem Labyrinth 
zu entkommen. Zwei Vorraussetzungen müssen allerdings erfüllt 
sein: Ihr Colour-Genie muß 32K RAM haben, und Sie müssen 
elementare Englischkenntnisse besitzen, da die Sie Kommandos in 
Form von englischen Sätzen eingeben. 

Preis: 69.- DM 

TCS-CHOPPER: Die Geschmäcker sind verschieden - aber dies ist 
wohl das beste Videospiel, das es z.Zt. für das Colour-Genie 
gibt! Dreizehn Ihrer Kameraden sind in einem von vier riesigen 
Labyrinthen ausgesetzt worden. Versuchen Sie nun, diese mit 
Ihrem Hubschrauber zu retten! Aber Vorsicht, Ihre Freunde 
werden scharf bewacht! 

32K RAM sind auch hier notwendig. 

Preis: 69.- DM 

DOPPEL-WURM: Vielleicht kennen Sie unser beliebtes Spiel 
"Tausendfuß”. "Doppel-Wurm" ist sehr ähnlich, allerdings 
spielen hier zwei Spieler gegeneinander, was die Spannung 
natürlich erhöht. Achtung: Nur für Joystick-Besitzer ! 

Preis: 39.- DM 

MADTREE: Ein schwieriges Videospiel: Sie sind eine fleißige 
Biene und müssen eine Reihe von Blumen ständig bestäuben, damit 
diese nicht eingehen. Doch diese Blumen sind undankbar und 
gefährden Sie. 

Preis: 39.- DM 

DIG-BOY: In Ihrem unterirdischen Reich kämpfen Sie gegen 
Drachen und andere Untiere. Locken Sie diese unter einen 
der wackligen Felsen, um sie zu zerschmettern. 

Dieses Spiel ist sehr empfehlenswert, da es eine Menge 
Abwechslung bietet. 

Preis: 39.- DM 

EMPIRE: Für alle, die nicht nur reine Aktion wollen, ist 
"Empire" das ideale Spiel. Dieses Spiel kann mit bis zu sechs 
Spielern gleichzeitig gespielt werden, der Computer spielt 
ebenfalls mit. Jeder Spieler hat ein kleines Reich, das nun 
durch Handel, Politik, Krieg u.s.w. zu Wohlstand kommen soll. 
Dabei stehen Sie mit den anderen Nationen ständig in Beziehung, 
sei es durch Handel oder durch Krieg. 

Ansprechende Grafik macht das Programm noch interessanter. 

Ihr Cplour-Genie muß für "Empire" auf 32K RAM aufgerüstet sein. 
Preis: 69.- DM 
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3.) MUSIKPROGRAMME 


MUSIK: Dieses Programm spielt festprogrammierte Musikstücke 
mit verblüffender Qualität. 

Preis: 25.- DM 

ORGEL: Spielen Sie Orgel auf Ihrem Colour-Genie ! 

Ihnen stehen zwei Manuale, einstellbares Delay und sogar 
eine Schlagzeugbegleitung zur Seite. 

Preis: 25.- DM 

COLOUR-SYNTHESIZER: Ein Programm, das man gesehen haben muß, um 
es überhaupt für möglich zu halten. Der Colour-Synthesizer 
macht aus Ihrem Colour-Genie einen vollwertigen 3-Kanal 
Synthesizer mit VCO, VCA, Hüllkurve, Schlagzeug... 

Acht Einstellungen aller Regler können vorprogrammiert, auf 
Tastendruck abgerufen und auf Band gesichert werden. 

Verblüffend ist auch die graphische Darstellung. 

Preis: 69.- DM 

COMPOSER: Mit diesem Programm können Sie sehr einfach eigene 
Musikstücke komponieren. Noten, Pausenzeichen u.s.w. werden 
grafisch dargestellt, können editiert und auf Band gespeichert 
werden. 

Preis: 39.- DM 


4.) LERNPROGRAMME (z.Zt. nur eines, demnächst mehr): 

MATHEMATIK-LERNPROGRAMM: Interessant für Kinder bis in's 
Grundschulalter. Wahlweise können die vier Grundrechenarten 
geübt werden, wobei man zwischen verschiedenen Schwierigkeits¬ 
graden wählen kann. Lustige grafische Gestaltung sorgt dafür, 
daß das Üben Spass macht. 

Preis: 25.- DM 


*** STAND DER TCS-SOFTWARELISTE,COLOUR-GENIE, VOM 12.8.1983 *** 

In Vorbereitung: Colour-Text, Lernprogramme für Kinder, 
verbesserter Maschinensprache-Monitor und viele interessante 
Spiele ! 



BESTELLFORMULAR 


Zur Bestellung von Colour-Genie-Programmen können Sie dieses 
Formular benutzten* Schicken Sie dieses an Ihren GENIE-Händler 
oder direkt an TCS Computer GmbH 
Kölnstraße 4 
5205 St. Augustin 2 
Tel.: 02241 / 28071 

Bankverbindung: 

Raiffeisenbank Menden BLZ 37069507 Konto-Nr. 1525 

Der Versand erfolgt per Nachnahme oder Vorauskasse auf obiges 
Konto (dies natürlich nicht* wenn Sie bei Ihrem Händler 
bestellen). 


Ich bitte um Zusendung folgender TCS Colour-Genie-Programme: 


Anzahl : Name des Programms : Preis/DM : Gesamt 


Gesamt: DM 

Meine Adresse ist: 

Name: . 

Straße: . 

Ort: . 

Datum: .. Unterschrift: ... 
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Raum für NOTIZEN: 

















































































































































































































































































